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Foreword 


The Commodore 128 is an exciting, unique computer. It provides three 
completely independent modes of operation: the 64 mode, the 128 mode, 
and the CP/M mode. Each of these modes has its interesting applications 
and deserves attention. The 128's forerunner, the Commodore C-64, has an 
enormous amount of software available for it. All of it can run on the 128 
with complete compatibility to the 64 mode. New software written for the 
enhanced features found in 128 mode are appearing every day. Finally, the 
128's CP/M mode, though often overlooked by owners and software 
developers alike, has many very important and exciting possiblities. 


Like the weather, everyone seems to talk about the 128's CP/M mode, but 
no one does anything about it. Does that mean its CP/M isn't any good? On 
the contrary. While the CP/M for the Commodore 64, CP/M 2.2, had its 
difficulties, the 128 KBytes RAM with the C-128 makes it possible to run 
CP/M 3.0 (also known as CP/M Plus). CP/M 3.0 performs much better 
than the old CP/M 2.2. 


The C-128 also has other inviting features. It has a fantastic keyboard that's 
especially suitable here for long hours of programming. Some subtle but 
very convenient ideas went into it. For example, the keys F and J are 
provided with a small dot in the middle, so that you can more easily place 
your fingers in the correct position on the keyboard without looking. The 
Commodore developers have had a bit more experience designing 
computers than a lot of newcomers. Several competitors have a mouse to 
offer, but have really poor quality keyboards—and working with a bad 
keyboard is about as inviting as eating in a dirty restaurant. 


The C-128's companion, the 1571 disk drive, offers a lot of performance 
and value for the money. Theoretically you can work with CP/M 3.0 on 
your old 1541, but this would greatly reduce the efficiency of the sytem. An 
upgrade to the 1571 will save you many hours of waiting, in the long run. 


Those who predict the death of CP/M caused by its new rival, GEM, will 
have to be patient for a few more years. There's a lot of CP/M software out 
there, all readily available to any computer equipped with CP/M. The 
68000-chip computers have it pretty tough, because completely new 
software must be developed for them. 


The purpose of this book is to show you how to work with CP/M as 
comfortably and quickly as possible. All of the standard CP/M commands, 
as well those CP/M commands peculiar to the Commodore 128, are 
thoroughly explained. 


We hope you have a lot of fun with CP/M on your Commodore 128, and 
much success applying it. 


Sincerely, 


E. A. Weiler 
J. Schieb 


Diisseldorf, W. Germany 
November 1985 
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The Computer 


We don't know how familiar you are with computers. Unfortunately we 
can't ask each reader individually. So we'll start at the beginning with 
fundamental computer concepts so we can all start this book on equal 
footing. 


First of all, what is a computer? We'll try to answer this question 
scientifically. 


The word itself, "computer" tells us what it does. A computer is a 
calculator—it computes. Such a computing machine can do great many 
things, such as process a lot of numbers in accounting and calculate the 
totals of ledger columns. 
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1.1 The keyboard 


But we have a problem. In front of us is a box that supposedly can 
calculate. How do we tell it what it should calculate? It would be nice if we 
could just instruct it verbally, but that's still a few years down the road. 
Therefore we have the next-best alternative, the good old typewriter 
keyboard, and use it to enter information into our computing machine. 


Since the computer has many more functions than a typewriter, its keyboard 
is somewhat different. A computer keyboard has between 60 and 100 or so 
keys, depending on its price and features. Since the Commodore 128 is a 
many-featured computer, it is equipped with a numeric keypad for inputting 
a large amount of numbers. The small mark in the middle of the 5-key 
serves as orientation for your fingers on the numeric keypad when you are 
not looking at it. By the way, you'll also find this small mark on the F and J 
keys to guide your fingers. 


A few often-used keys are especially important. We'll describe them now, 
along with their uses. 


RETURN 


You'll recognize this key from the typewriter. With the C-128 and other 
computers it's often used in different ways. The designations for this key 
are: 


<RETURN> 

<ENTER> 

CR (abbreviation for carriage return) 
BACK SPACING 

<BS> (back space) 

<- (cursor left) 
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DELETION OR CORRECTION KEYS 


<DELETE> 
DEL (abbreviation for DELETE) 
RUB OUT 
SHIFT / UPPER CASE 
<SHIFT> (turns on capitalization) 
LOCK 


<SHIFT LOCK> (continuous <SHIFT>) 


_ The actual function of this key depends on the computer. This 
key usually doesn't change the way the whole keyboard - 
functions. It means that only capital letters are printed when a 
letter key is pressed. It can make your typing work a lot easier. 


The Commodore 128, on the other hand, uses <SHIFT 
LOCK> to change the function of all keys on the keyboard. It's 
the same as holding down the <SHIFT> key. 


CAPS LOCK | 
Normally the C-128's <CAPS LOCK> key only affects the 
letter keys, but in CP/M it is inoperative. 

CONTROL 
The <CONTROL> key, is on the left side of your C-128 


keyboard. It is used for many control commands in conjuction 
with letter or digit keys. 
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1.2 The Screen 


Actually the title of this section should be plural: The Screens. That's 
because the C-128 use two screens at the same time. After we've put data in 
the computer, we obviously need a way to display that information. It 
doesn't help us much if the computer makes a lot of wonderful calculations 
if it has no way of telling us what it's done. Data output on a screen 1s nice, 
because it's fast and doesn't make any noise. Data and error messages from 
the computer are quickly shown, and if you want a hardcopy of your 
mistakes, we can always send them to a printer. 


The screen itself is basically similar to a television set. It is often called a 
monitor, and displays letters, digits, and other characters. The monitor is 
different from a TV set in that it usually has a better resolution, making it 
easier on the eyes of the user. 
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1.3 The Printer 


The computer can send its data to a printer for permanent record of. its data. 
The first large computers, which performed quite slowly by today's 
standards, used telex machines to output for permanent paper copies. These 
telex machines were very loud, and wasted a lot of paper. 


The disadvantages of printers, noise and paper waste, are still with us today 
in varying degrees. But many people need their computer information in 
printed form, so they need to use a printer. Since there are so many different 
printers on the market today, we'll give you a short overview. 


Printer prices and performance vary widely. They cost from $50 to $8000 
and up. They can print between 15 and 800 characters per second, 
depending on their cost. | 7 


1.3.1 The Dot-matrix Printer 


Dot-matrix printers work especially well with microcomputers like the 
C-128. They are the most popular, best-selling printers, due to the fact that 
they are among the lowest priced printers. In addition, dot-matrix printers 
do their work faster than many other types of printers. Dot-matrix printers 
print dots very closely together to form letters and characters. Wire needles 
strike a ribbon against the paper to produce a tiny dot. A minimum of seven 
dots are required to produce a letter, digit or other character. In the early 
days of personal computing (before 1980 or so), the quality of these 
printers was very poor. It was quite hard to read its text if the printout 1s of 
any great length. 


But those days are past. There are still very cheap models of dot-matrix 
printers on the market today that print 80 to 100 characters per second. They 
aren't good enough for correspondence, but are sufficient for some 
applications. A big advantage of dot-matrix printers is that you have a 
choice of fonts, and can even program your own fonts—for example, to 
include foreign language characters. This makes written correspondence 
with Germany, Greece or Japan much easier. 
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High performance dot-matrix printers print up to 800 characters per second 
with 132 dots across the width of the character. They vary in cost from 
about $500 to $3000. This new breed of dot-matrix printers have become 
available only recently. They usually have 24 print needles, and can 
approach the quality of typewriter print (at reduced speed). Customarily 
they print about 50 characters per second for correspondence, and 140 to 
150 characters per second in quick-print mode. 


1.3.2 The daisy-wheel printer 


A second type of printer is the daisy-wheel printer. This group includes the 
ball-head printers. These printers are typically based on obsolete typewriter 
designs, and require a lot of costly maintenance. Their large number of 
moving parts make them quite expensive to manufacture. 


Daisy-wheel printers have a disk that replaces the type-basket or ball head of 
a conventional typewriter. This disk contains the various letters and 
characters required for printing on the rim of the disk itself. The disk rotates 
on its axis, and a small hammer hits the required character against the 
ribbon, creating an impression on the paper. Daisy-wheel print is 
indistinguishable from that of a typewriter's. A daisy-wheel printer might be 
considered if your computer output needs to be letter-quality. 


The speed of the cheapest daisy-wheel printer models is about 20 characters 
per second. Top-of-the-line models can print at about 80 characters per 
second. 


1.3.3 The ink-jet printer 


A fairly new type of printer is the ink-jet printer. These are a lot cheaper 
than daisy-wheel printers. Like a dot-matrix printer, it prints letters and 
digits using little dots. However, there are no mechanical parts between the 
print head and the paper. Instead, little drops of ink are "sprayed" at the 
paper. Its print quality is comparable to that of a cheaper dot-matrix printer. 
The big advantage of ink-jet printers is that they are very quiet. Printing 
about 150 characters per second, their noise level is very low. Their major 
disadvantage is that they can't make multiple copies through carbon paper, 
such as for printing invoices in triplicate. 
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1.3.4 The thermal printer 


Thermal printers use heat to print the characters on the paper. They require 

a special type of paper. The paper turns dark after exposure to heat. These — 
printers are quite cheap, and are good enough for everyday functions. The 
simplest models of thermal printers cost under $100. 


Also in this category, but at the other end of the quality and price spectrums, 
is the laser printer. Laser printers produce the highest-quality print of all 
computer printers. They use a laser beam to scan across a drum and form 
characters, which are then printed using a Xerographic process. It's hard to 
tell a laser printer's copy from typeset print. 


You really don't want to know how much laser printers cost. Believe me. 
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1.4 Data memory 


Let's see what makes up our computer so far. We have a keyboard, a 
screen, and a printer. Now what we need is a place to store the data we 
which we enter. First we need storage while the data is inside the computer, 
and then we need long-term storage. We can store the data inside the 
computer in its memory. For long-term storage we can use a floppy diskette 
or hard disk. Let's take a look at how a computer stores its data. 


1.5 One or zer0: Foundations of binary arithmetic 


The computer is an electronic device. Because of this, any information 
inside the computer must be represented in electrical form. But how do we 
represent it with electricity? How do we tell the computer what we mean? 
It's essential to have a method of representation that the computer 
understands. One representation which the computer recognizes is power 
flow—either the power is on or the power is off. It works on the same 
principle as a light bulb. When the power is turned on, the filament in the 
light burns. If you cut off its power source, the light goes out. This simple 
process is fundamental to the operation of the computer. The computer is 
wired in such a way that the condition "power on" has the same meaning as 
the value "1". 


Conversely, if no power is flowing, the computer reads this as the value 
"0". Being able to differentiate between these two states leads to some 
astonishing effects. 


10 
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1.6 Counting in binary 


The binary number system uses only ones and zeros for counting. It's not 
especially good for ordinary use—counting aloud in binary from one to a 
hundred would probably take you several hours. Fortunately, the 
computer's circuitry can process the two digits of binary number system 
with incredible speed. 7 


There are several counting systems: binary, decimal, hexadecimal, and 
others. We all know the decimal system very well. We are accustomed to 
thinking in the decimal, or base 10, system. In fact, most of us can hardly 
imagine counting any other way. 


So what can we learn from this new system? Think of a decimal number: 
zero, for instance. If we want a larger number, we can choose one, two, 


and so on. If we want a number larger than 9, we go to a two-digit number: 
10. 


We can do something similar when we have only two numbers to work 
with as in the binary system. The first number, as before, is zero. The next 
is one. We don't have any more numbers than these to work with, so we 
immediately go to a two-digit number. We denote the value two as 10. 


Three is 11. For the number four we have to add a new digit place, and get 
100. 


Here is a table of binary numbers: 


zero = 0 
one = 1 
two = 10 
three = 11 
four = 100 
five = 101 
S1X = 110 
seven = 111 
eight = 1000 


We must pay attention to the number of places in this counting system. We 
can represent two numbers with one place, four numbers with two places, 
eight with three places, sixteen with four places, and so on. The number of 
numbers that can be represented doubles for every place added on. In our 


11 
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decimal system we know how place values work. Each added place in the 
decimal system allows us to represent ten times as many numbers. With one 
place we can represent 10 numbers, with two places a hundred, with three 
place a thousand, and so on. 


The binary number system proved to be so useful for use with computers 
that people soon developed technical terms for describing elements of this 
system. A single place is called a digit. Since there are only two possibilities 
for each place, it is a binary place. Put together, we get the phrase binary 
digit. We refer to this as a bit. 


In order to make it easier for the computer to handle these individual bits, 
they are grouped into a unit of eight bits—a byte. If we extend our previous 
table of binary numbers, we would find that 8 bits, or one byte, can 
represent 256 values. 


1.7 Memory values 


The computer must be able to store these numbers. A number is represented 
by the computer as an electrical condition, a sequence of switches that are 
on or off. Since one byte isn't a lot of memory, we often refer to a 
computer's storage capacity in kilobytes, or thousands of bytes. To be 
precise, one kilobyte represents 1024 bytes. A 64,000 byte memory is 
designated as 64K. 


Through electronic switching it is possible to read the value of a byte, to 
process that value, and to assign it a new value. That is the power of 
computer. Its advantage is that it can carry out these operations very 
quickly, making it a very useful data manipulator. 


All computer memory has a limited area in which to store data. The typical 
size for the work memory of a personal computer with an 8-bit processor is 
64 kilobytes (or 64K for short). The new 16-bit computers have work 
memory between 128 K and about eight megabytes. Though the 
Commodore 128 is an 8-bit machine, it has 128 K of memory—the amount 
of space needed for CP/M 3.0. You can upgrade it to 512K if you desire. 


12 
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You might wonder how we can store text in a computer, since it can only 
accept and output numbers. For this purpose, the computer uses a 
dictionary, similar to one we would use to translate a foreign language. 
Within the computer is a table that associates every letter and character with 
a numeric value. When you type in the letter T, for instance, it looks at the 
table and finds the right value for T, and converts it into this binary number. 
Then it proceeds to read the next character. To output a character to the 
screen or printer, it reverses the procedure. 


To be compatible regardless of the brand or model our computer, 
manufacturers have agreed upon a standard for the translation table format. 
Most computers use ASCII (American Standard Code for Information 
Interchange). The ASCII code contains 128 characters, each of which has 
its own numeric value. Appendix A has a table listing these ASCII values. 


A computer's memory, regardless of size, cannot perform work unless 
there is a set of commands to organize the computer's work. For instance, a 
command might take a data value in memory location A add it to the value in 
memory location B and put the sum in memory location C. 


The computer's CPU (central processing unit) contains many such 
commands. 


To carry out a particular task, the computer must have an exact list of 
commands telling it what to do, every step of the way. This list of 
commands is known as a program. A program's commands work in 
sequence to guide the computer toward its end goal. The program must be 
resident in the computer's memory to run, and therefore needs memory 
space. 


Depending on the task, such a program will be between 10K and 120K 


long. Sometimes so much memory space is taken up by the program that 
there is no room to store your data. 


13 
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1.8 Mass Storage 


It's rarely necessary to have an entire program in the computer's working 
memory. Usually it's sufficient if the important parts are in work memory 
and the rest are in storage, ready to be called up when needed. One of the 
ways a computer does this is with the overlay technique. Using this method 
frees up internal memory, as well as providing additional space for that 
memory. The mass storage device can be a floppy disk drive or a hard disk 
drive. Each has its own advantages and disadvantages, but all provide large 
amounts of space for data, and can exchange that data with the computer in 
a reasonable amount of time. 


1.8.1 The Floppy Diskette 


The floppy diskette, also referred to as a floppy or a disk, is made out of a 
material similar to magnetic tapes. It is a thin disk with a finely polished, 
high-density magnetic surface. Floppys are enclosed in jackets to protect the 
disk from small contaminants like dust, dirt and fingerprints. An electronic 
read-write head on the disk drive moves along the disk's surface and 
magnetizes or demagnetizes different areas. 


With a disk we again find two states: magnetized, or not magnetized. 
There's a good reason for this. The data represented in the computer as 
electrical states can be directly transferred to the floppy. Data is written to 
the floppy in a binary technique, as magnetized and non-magnetized spots 
on the floppy, and is later read back by the computer in a like manner. If a 
bit is ON, the write head makes a small spot on the disk surface magnetic. If 
the next bit is OFF, nothing is written on the floppy disk. This corresponds 
directly with data representation within the computer itself. 


The floppy diskette spins rapidly on its axis, making 200 to 300 revolutions 
per minute. To organize the data on the magnetic surface, the disk is divided 
into a number of tracks, which lie next to each other like lanes on an athletic 
track. : 


If we want to put data on the disk, the write head moves over a particular 
track and writes the data to it. 


To reduce the time needed to read and write to different tracks, the disk 1s 


divided once again, into sectors. These sectors are between 128 and 1024 
bytes long, depending on the manufacturer. The Commodore 128 uses a 
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different floppy format in the CP/M mode, to make it compatible with 
several different CP/M versions. We'll discuss these different formats later. 


Unfortunately, disk drives from one computer manufacturer aren't 
necessarily compatible with another manufacturer's disk drives. Every 
computer maker uses their own format, much to the chagrin of users. Apple 
is especially adept at frustrating programmers with its incompatible drives. 


For these reasons, floppy disks can't be used straight out of the box. They 
must first be formatted before they can be used. Each computer has its own 
special program to write to those particular disk tracks and sectors that the 
computer will use. 


You've got to be careful to make sure you don't reformat disks containing 
important data. Formatting destroys all the data already on a diskette. It's a 
good idea to put a write protect tab on the notch of valuable data disks. 
These tabs are the small stickers packed in every box of disks. They can 
Save you from the extreme frustration of seeing hours of work wiped out by 
inadvertent reformatting. 


By the way, it is smart always to have a backup copy for all important data 
stored away, someplace where children, dogs, cats, fire, thieves, 
snowstorms, and the like can't harm them. Even if you don't keep your 
diamond jewelry in a safe, at least lock up your backup copies. They are 
really that important to your programming. If you need help making CP/M 
backups and other copies, skip ahead to the next chapter for a moment. 


At the present time there are a lot of different disk formats on the market. 
For instance, you can still find the old 8" diskettes, at one time hailed as the 
state-of-the-art in data processing. The 5 1/4" disks are especially popular, 
_ widely used by personal computer users. This format is handy and 
depending on the computer, you can fit up to two Megabytes on them. 


The 3 and 3 1/2" micro-diskettes from Japan promise even more 
convenience than the 5 1/4" diskettes. These disks have a metal flap that 
closes access to the actual disk surface when not in use. This prevents 
almost all contaminants from reaching the magnetic surface. Also, they have 
a stiff plastic jacket that prevents damage due to accidental bending, folding 
and other forms of user abuse. 
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1.8.2 The hard disk 


Another type of mass storage device is the hard disk drive. Used 
predominantly with business computers, a hard disk has the same 
measurements as a 5 1/4" floppy disk (although there are also 3 1/2" hard 
disk drives). They cannot be inserted and ejected as with normal floppy 
disks. This is because hard disks are permanently enclosed in a tightly 
sealed housing, allowing more precision and hence increased rotation 
speeds. The spinning magnetic disk makes about 3000 rotations per minute 
as the read/write head glides over the disk surface. A dust or smoke particle 
on the disk surface would affect the hard disk like a small rock on your 
stereo turntable. 


The standard memory capacity of the hard disk drive so far has been the 10 
MByte (megabyte or millions of bytes) drive. But the 20 MB hard disk 
drive is starting to gain popularity as its price drops. 


In addition to its especially large storage capacity, the hard disk drive offers 
another decided advantage—its can store and retrieve data about 20 times 
faster than the floppy diskette drive. And the only real disadvantage of hard 
disk drives is their steep price tags. They cost from $800 to over $5000. 


1.9 Summary 


Hopefully you've gained an understanding of the fundamental components 
of a computer system and their operation. Here's a quick review: 


¢ A computer is an electronic calculating machine that uses a 
keyboard and a monitor screen as input and output devices. 


¢ A printer is another output device used to make permanent 
copies of a computer's data. The categories of printers 
include dot-matrix, daisy wheel, ink-jet, and thermal 
printers, each with their own advantages and disadvantages. 

¢ The computer works with binary numbers. The binary 
system includes only the numbers one and zero. A computer 
groups binary digits, or bits, into binary values. 

¢ Floppy disks and hard disks are external storage devices. 


In the next chapter we'll examine the operating system and its functions. 
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The operating system 


In the previous chapter we took a quick look at the computer's 
hardware—the individual components of a computer. In and of itself, 
computer hardware has very little value. That's because a computer can't 
initiate any useful activity. A computer becomes valuable when it is able to 
run important, useful programs. That is why we need software. When 
talking about software, we must make some differentiations. 


We'll discuss two software types: the operating system and the programs. 
You should keep it in the back of your mind that the operating system is a 
program, too. The differentiation is mine. It arises from the function of the 
two types of software. 


We regularly hear inexperienced people who are interested in computers 
ask: "Can it also do word processing?" These people don't understand the 
difference between a program and an operating system. Therefore we will 
explain it, in case you are asked the question sometime. 
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2.1 What is a program? 


Essentially, a program is a list of tasks which the computer performs 
sequentially, one after the other. These tasks are specified as instructions 
that the computer can understand. Since the computer is a machine, this 
language is called machine language. Programs written in machine language 
are incomprehensible to most "normal" people, but the computer likes them. 
Since machine language is written in a way that the computer can 
understand, it performs these instructions very quickly. 


To make programming easier for us "normal" people, other programming 
languages are available. Among these are BASIC, COBOL, FORTRAN, 
Pascal, and Modula-2. These languages have commands or statements 
which are more understandable than machine language instructions. These 
high-level commands are translated or converted into machine language 
instructions before the computer carries them out. | 


Any program is nothing more than a sequence of machine language 
instructions or high-level commands. When you write a program in BASIC 
for the 128, you are not writing any of the instructions that the computer 
actually carries out. A large number of small tasks are performed by the 
computer without your knowledge. For example, the computer must 
determine which key on the keyboard was pressed, which character is to 
appear on the screen, or what data is to be read from the disk drive. 


The computer spends a great deal of time performing these types of 


activities. To write the instructions to perform these things for each and 
every program is cumbersome. 
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2.2 Operating systems 


There is a better way to program the computer and avoid repetitive work. 
We can divide the program into a main program and "often-used routines." 
The main program performs tasks such as print a customer invoice or dial a 
number using a modem. The "often-used routines" perform tasks such as 
scanning the keyboard for a pressed key or converting a value in memory to 
an ASCII character. : 


Collectively these "often-used routines" can perform all of the low-level, 
frequently used tasks that most programs require. This is then called an 
operating system. 


The operating system provides a standardized method for programs to use 
the commonly used functions. The major task of the operating system is to 
handle the data transmission between the computer and the peripherals. 


In CP/M mode, the 128 uses a very well-known operating system. CP/M 1S 


the acronym for Control Program for Microprocessors. CP/M works on 
8080, 8085, and Z80 microprocessors. 
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2.3 CP/M's task 


CP/M handles the basic tasks of accepting input of characters, outputting 
characters, managing the storage areas on the disk drive, and reading from 
or writing to disks. These routines can be used in a standardized way in all 
applications programs. : 


Since this is true, CP/M must do its job in two different modes. It is divided 
into two large sections. The first section, BDOS (Basic Disc Operating 
System) takes care of all the tasks which are machine independent. A 
second part of the CP/M operating system is BIOS (Basic Input/Output 
System). BIOS handles the program sections which are machine dependent. 


Every computer has its own methods of carrying out specific tasks. 
Consequently, we can't simply take the operating system from one 
computer and run it on another. Before an operating system is able to run on 
different computer hardware, a new BIOS must be produced for the 
computer, since BIOS is dependent on the computer's hardware. You 
shouldn't have any problem with your C-128, since it's fitted with a 
functioning operating system. 


2.4 Different CP/M versions 


Most programs that have been on the computer market for any length of 
time have improvements made on them. Usually new versions are released. 
There are no perfect programs, so some of a program's errors may creep in 
when users try it out and test all its capabilities. 


When the software publisher discovers program errors, and the errors are 
corrected, a new version of the program is usually made available. One 
version, CP/M 2.2, is practically error-free. It is the standard operating 
system for many 8-bit computers. The newer version CP/M 3.0 isn't just an 
upgrade to eliminate errors, but a new version with new features. The new 
version is aimed at maintaining the life of CP/M with new computers and 
new computer programming methods. 
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Let's leave the theory and talk about the C-128 and the CP/M operating 
system. To get the most from our discussions you'll need a functioning 
128, a 1571 floppy disk drive, and a diskette with the CP/M operating 
system on it. 


Turn on the computer, insert the diskette with the CP/M operating system in 
drive A and shut the drive's door. Pay attention to this sequence. If you turn 
the computer on or off with a diskette in the drive, a power surge from the 
read/write head could make your diskette unreadable—and unusable. 


Now you've got your computer's power on and your CP/M system diskette 
in the drive. There are several methods to start CP/M on the Commodore 
128. First, you could shut off the power, insert the CP/M system diskette 
and turn on the computer again. As mentioned above, this isn't the safest 
way. Another, much safer way is to turn the computer on, insert the 
diskette, and then press the RESET button. 


The last way, which isn't much more complicated, is to insert the diskette 
and then enter the command: 


BOOT <RETURN> 


Pressing the RESET button is the usual method of entering CP/M mode, 
since it is the most dependable and fastest. 


The disk drive will begin to read the diskette, its light will go on, and 
shortly thereafter you see a message on the screen. The start message looks 
somewhat different on every machine. That is because the message comes 
from the BIOS part of the operating system and varies from computer to 
computer. Before the Commodore start message comes on screen, you'll 
see the message Boot ing... then in blue text, Booting CP/M Plus. 


As you know, the Commodore 128 can use either a 40-column or an 
80-column display. Its nice to work with an 80-column screen, but CP/M 
also supports a 40-column display. With the 40/80 display key you can 
choose between with the 40-or 80-column screen (providing you have the 
proper monitor). The initial message appears on either screen. After the 
CP/M prompt, only one display is active. 
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A 40-column screen simulates an 80-column display. By using 


<CONTROL> — and <CONTROL> < you can shift the screen. 
Throughout this book, we assume that you are using an 80-column screen. 


If you see the message: 
NO CP/M+.SYS File - HIT RETURN TO RETRY 
DEL TO ENTER C128 MODE 


then you must have inserted the CP/M system diskette upside down. Turn 
the diskette over and press the <RETURN> key. Your Commodore will 
then boot CP/M. | 


There can also be disk read errors. In these cases, the screen displays the 
message: 


READ ERROR - HIT RETURN TO RETRY 
DEL TO ENTER C128 MODE 


If you want to try to reboot, then press the <RETURN3> key. If you're too 
frustrated to continue, press the <DEL> key. All other keys are ignored. 


If everything goes as planned, first the following five lines will appear in 
the lower part of the screen: | 


BNKBIOS3 SPR F400 0800 
BNKBIOS3 SPR CA0OO 1600 
RESBDOS3 SPR EEOO 0600 
BNKBDOS3 SPR 9C00 2500 
58K TPA 


These are information messages about the BIOS and BDOS, i.e., where 
they are stored and how long they are. This proceeds rapidly. 58K TPA 
means that 58 KBytes of memory remain for programs and data. TPA 
means Transient Program Area. When these things are done, the following 
four lines appear on the upper part of the screen: | 


DATA TABLES 
COMMON CODE 
BANKED CODE 
BIOS8502 CODE 
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When information from the diskette is loaded, the normal CP/M message 
appears on the screen. On the Commodore 128 it appears like this: 


CP/M 3.0 On the Commodore 128 6 DEC 85 
80 column display (or 40 column) 


You've probably noticed that there are always some numbers in the lower 
right corner during loading. Even when the initial message disappears, these 
numbers don't go away. The last line of the screen is the status line, which 
can't be written on. The numbers in the corner show which block is being 
read from or written to. An R stands for reading from, and a W for writing 
to a block. Further down is an A or B message, indicating the disk drive 
that's being used. 


The status line can be turned on and off with the key combination 
<CONTROL> <RUN/STOP> if you wish. (80 column display only). 


What if you don't like the screen color? No problem. By hitting the 
<CONTROL> key and one of the keys 1 through 8, you can choose the 
display color. You can also change the background color by hitting the 
<CONTROL> key and one of the numerical keys 1 through 8 on the 
numerical pad. For example, if you want black print and a white 
background, press <CONTROL>-1 and <CONTROL>-2 (the latter 
combination from the numerical keypad). That's takes care of it. CP/M on 
the Commodore has other pleasant surprises waiting for you. (80 column 
display only). 
Back to our start message again. The start message tells you that the CP/M 
operating system is stored correctly in the computer's work memory. Right 
after the start message display, CP/M puts up a ready message—the 
operating system prompt. The prompt looks like this: 

A> 
The large A tells you that you're working with disk drive A of your system. 
The > symbol is the ready message from CP/M. CP/M expects you to enter 
your command on the line with the prompt symbol. Well, then we won't 
make CP/M wait too long and we'll write: 


A>abcdefgh 


Now the cursor remains behind the last input character and doesn't move. 
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The reason is that CP/M doesn't know whether we've finished entering the 
command or if we still might have input. To have the input accepted, we 
must tell CP/M that we're done with the input. 


We do this by pressing the <RETURN> or <ENTER> key. This is an 
abbreviation for carriage return, or CR. As soon as we press this key, the 
computer knows that a command has been given, and begins to carry it out. 
Press the <RETURN> key and the following appears: 


A>abcdefgh 
ABCDEF GH? 
A> 


What happened? CP/M read the line and did not find file abcdefgh, so it 
let us know. The operating system makes us aware of incorrect or 
uncomprehensible commands by repeating the input and followed by a 
question mark. The question mark means something like, "What is this 
garbage?!? I can't do anything with it.” 


We'll try again—maybe the lowercase letters were the problem. After 
booting you can enter capital letters (using <SHIFT>). By hitting the 
<SHIFT LOCK> key you can enter capital letters every time. By the way, 
the key <C=> does exactly the same thing. Press the <SHIFT LOCK> key 
now. 


A>ABCDEFGH 
The following display comes back as an answer: 


A>ABCDEFGH 
ABCDEFGH? 
A> 


The operating system didn't understand the command in capital letters 
either. You might have wondered in the previous sample why the command 
line is repeated in capital letters, even though you entered lowercase letters. 
That is a quirk of CP/M that we need to pay attention to. CP/M converts all 
letters to capital letters and then interprets the input. 


To show you that CP/M can really do something, we'll now enter a 
command that will really work. You read in a previous section that an entry 
on the diskette is managed by a table of contents. For this reason, CP/M 
puts a directory on every diskette. 
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To look at the table of contents, we enter the command D IR, which is an 
abbreviation for directory. Enter this command now and press 
>: 


DIR <RETURN> 


A small note: As you may know, BASIC lets you see the table of contents 
on the screen by pressing the Function 3 key. Because the coding isn't too 
difficult, this is also possible in CP/M. Simply press the F3 key once. 
Pressing the F4 key displays the text DIR on the screen, without an 
automatic <RETURN>. We'll talk more about this option it later. 


You'll see the directory of your operating system diskette on the screen. 
Take a closer look. On the far left of the directory listing, the drive identifier 
of the diskette is displayed. Next to this is the name of the data, separated 
from the drive name by blank spaces. You'll often see the abbreviation 
COM, for example, CCP .COM, PIP .COM, and HELP.COM. These names 
are explanations of their contents. Right now the COM programs are 
interesting to us because they contain usable programs. 


COM is an abbreviation for command. These files contain commands which 
can be executed immediately. If you type in the name of one of these 
programs without the CoM following the operating system prompt, the 
program will be put into the computer's memory and run. In other words, 


all you have to do is enter PIP and press <RETURN>. The program then 
begins to run. 
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2.6 Playing it safe 


If you are still working with your original diskette, we'd like to suggest that 
you make a backup copy. You should get in the habit of making backups. 
It's a good idea to never work with the original program, but instead use a 
copy of the program and keep the original hidden away in a safe place. To 
make it easier to make backup copies, CP/M includes routines for the 
production of back up copies. 


2.7 Summary 
* You know a simple explanation of what an operating uses to 
manage its tasks. 


* You know what a program is and why we use an operating 
system. 


¢ You are familiar with CP/M's tasks. 


¢ You know what the CP/M prompt is and how to look at the 
directory of your disks. 


* You have learned that you should make at least one backup 
copy of every important diskette. 


28 


Chapter 3 





3.1 The system diskette 
3.2 Copying with a single disk drive 
9 Copying oe phe disk drives 
: ; ing the directo 
3.5 Copying with PIP ” 
3.6 Rules for filenames 
3.7 Extensions 
3.8 Finding a data file 
3.9 Searching with a question mark (?) 
3.10 Summary 


Abacus Software C-128 CP/M User's Guide 





Working with CP/M 


3.1 The system diskette 


You should always have backup copies of your original diskettes. If an 
accident destroys a copy, your originals will still be usable. Next we'll 
show you how to make a backup copy of the system diskette. 


Two programs are needed to make backups. Type DIR <RETURN> to 
display the diskette's directory. You'll find two programs named: 


FORMAT .COM and PIP .COM 


Normally, a diskette containing the CP/M operating system is copied using 
the COPYSYS command. If you enter COPYSYS <RETURN> on the 
C-128 keyboard, you'll discover that it is inoperative. In other CP/M 
systems, COPYSYS copies the system tracks—tracks 0 and 1, which 
contain most of the CP/M operating system routines. 


Under Commodore CP/M, the FORMAT command uses tracks 0 and 1. 
FORMAT places a BOOT sector on the diskette. Later, if the RESET button is 
pressed or the BOOT command is typed (in C-128 mode) when this diskette 
is in the drive, the CP/M system will be loaded automatically. 


Unlike other CP/M systems, the programs on the system tracks are named. 
They are: CPM+.SYS and CCP .COM. 


The file CCP .COM contains CP/M's resident commands. Resident 


commands are often-used commands that CP/M can perform without having 
to load CoM files from diskette. The CCP . COM file is loaded during boot. 
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3.2 Copying with a single disk drive 


Next we'll show you how to make a backup diskette if you have a single 
disk drive. 


Insert your original CP/M systems diskette into drive A and close the door. 
Enter: 


A>FORMAT <RETURN> 
The following message is displayed on the screen: 


C1i28 FORMAT PROGRAM 
15 May 1985 
Drive A is a 1571 (or1541) 


Please select disk type to format 
C128 double sided 

C128 single sided 

C64 single sided 


You can use the cursor keys (upper right of the keyboard) to select one of 
the three formats. Let's format a single-sided diskette. To do this, press the 
cursor down key (upper right) and press <RETURN>. The following 
appears on the screen: 


Formatting C128 single sided 
Insert diskette TO BE FORMATTED 
in drive A. Type $ when ready, 
any other key to abort 
If you've changed your mind, press any key except the $ key to abort the 


program. Otherwise, press the $ key to continue. You'll see the following 
on the screen: 


Formatting C128 single sided 
If any error occurs, the screen is cleared, a warning message is displayed, 


and the disk drive's green LED light flashes (or red LED on the 1541). If 
this happens, examine the diskette. It may be damaged. 
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If there were no errors the following appears on the screen: 


Do you want to format another disk? 


Press the N key, since we only need a single formatted diskette for now. 
Remove the formatted diskette and reinsert the original system diskette. 


Next copy the two system files: CPM+.SYS and CCP .COM. To do this, use 
the PIP command. As we will see later, PIP is a very useful program. For 
now, enter the following: 


PIP E:=A:CPM+.SYS <RETURN> 
The following message appears in the status line: 


Insert Disk E in Drive A 


Remove the original system diskette from the disk drive and insert the 
diskette we just formatted. Then press <RETURN>. The message 
disappears and the disk drive begins copying CPM+.SYS to the new 
diskette. When this is completed, the CP/M prompt reappears on the screen. 
Now copy CCP .COM in the same way: 


PIP E:=A:CCP.COM 


CP/M knows that you still have the destination diskette EF in the drive. A 
message in the status line asks you to replace the diskette with the system 
diskette again. Do so and press <RETURN> again. When prompted, 
replace the system diskette with the E disk so that the data file CCP .COM 
can be copied. To display the table of contents of the new CP/M diskette, 
enter the command DIR. The status line requests that you insert the A 
diskette in the drive. Leave your diskette in the drive and press <RETURN> 
to change the E diskette the new A diskette. 


That's all there is to it. The screen will display: 


A: CPM+ SYS : CCP COM 
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This completes the first step. Since we want to make a copy of the entire 
diskette for backup, we need to copy all of the data files. To do this, enter 
the following command: 


PIP E:=A:*,.* 


PIP tells you what file is being copied as it is working. A message in the 
status line requests you to change diskettes several times during the 
procedure. When you see this request, change the disks as instructed and 
press <RETURN>. When PIP is through, the entire first side of the CP/M 
system diskette will have been copied. The following files will be on it: 


COPYING - 
CPM+.SYS 
CCP .COM 
HELP .COM 
HELP .HLP 
KEYFIG.COM 
KEYFIG.HLP 
FORMAT .COM 
PIP .COM 
DIR.COM 
COPYSYS .COM 


To copy the second side (this is advised), format second diskette and enter: 
PIP BisA:*.* 
Everything else is displayed on the screen as above. After you copy both 


sides, put the original system diskette in a safe place. If a copied diskette is 
destroyed, you will still have a backup for the CP/M system. 


ze / 
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If you have two disk drives, you can copy data files much faster and more 
conveniently. You must first format a diskette. Make sure that the system 
diskette is in drive A and enter: 


A>FORMAT <RETURN> 
The following message is displayed on the screen: 


C128 FORMAT PROGRAM 
15 May 1985 
Drive A is a 1571 (or1541) 


Please select disk type to format 
C128 double sided 
C128 single sided 
C64 single sided 


You can use the cursor keys in the first row of keys to select one of the 
three formats. Let's format a single-sided diskette. To do this, press the 
cursor down key (on the upper row of keys) and press <RETURN>. The 
following appears on the screen: 


Formatting C128 single sided 


Insert diskette TO BE FORMATTED 
in drive A. Type $ when ready, 
any other key to abort 


If you've changed your mind, press any key except the $ key to abort the 


program. Otherwise, press the $ key to continue. You'll see the following 
on the screen: 


Formatting C128 single sided 
If any error occurs, the screen is cleared, a warning message is displayed, 


and the disk drive's green LED light flashes (or red LED on the 1541). If 
this happens, examine the diskette. It may be damaged. 
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If there were no errors the following appears on the screen: 
Do you want to format another disk? 
For now, press the N key, since we only need a single formatted diskette. 


After the formatting is complete, replace the formatted diskette with the 
system diskette. Insert the formatted diskette into the B drive. Now enter: 


PIP B:=A:*.* <RETURN> 


The copying proceeds without any diskette change requests. 


3.4 Displaying the directory 
You have just copied data from drive A to drive B. To verify the contents of 
the diskette in drive B, enter: 

DIR B: 
Don't forget to insert a space after DIR. The command above tells CP/M to 
display the contents of the diskette in drive B. If you display the contents of 


an empty formatted diskette, the message NO FILE 1s displayed. This 
means that the diskette contains no data. 
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Usually PIP is used to copy data files with two-drive systems. But this 
command works differently on the Commodore 128. We can use a virtual 
disk drive by specifying drive E. This drive doesn't physically exist, but is 
recognized by the computer. Drive E physically uses drive A, by alternating 
diskettes. Before starting, you should note which diskette will be the A 
drive and which diskette will be the E drive. (This virtual memory trick 


works with more than just PIP, by the way. We'll talk more about its uses 
later). 


The PIP program is an acronym for Peripheral Interchange Processor, and 
can be a very useful program for us. 


You have the system diskette in the disk drive at this ttme. Now type PIP 
and press <RETURN>. The computer loads the PIP program, into 
memory. PIP displays its own prompt: | 


A>PIP 


CP/M 3 PIP VERSION 3.0 
* 


The asterisk shows you that PIP is ready to accept commands. You'll get 
an in-depth look at the full range of PIP commands in Chapter 6. 


Let's use PIP again. Here's our task: Copy the files from the diskette in 
drive A to the diskette in drive B (or drive E, if you only have one disk 
drive). An alternate way of saying this is: The diskette in drive B should 
receive the contents of the files contained on the diskette in drive A. 


Why did we rephrase our goal for the task? Because PIP requires us to 
enter commands in a similar way. When the files on the diskette in drive A 
are copied to the diskette in drive B, both diskettes have identical contents. 
You'll notice that the commands contain an equal sign. Another way to state 
the command PIP B:=A:*.* is "make the contents of the diskette in 
drive B equal to the contents of the diskette in drive A." 


The asterisk is a way to tell PIP to copy all files. You can think of the * as 
a wild card, which can be used to substitute for any card 1 in any suit. 
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Recall that files are identified by a name and extension. The extension is a 
three letter identification following the period. 


To copy all the data on a diskette, enter a * . *. It looks like this on the 
screen: 


B:=A:*.* (or) E:=A:*.* 


Because we want to make sure that all the data was transferred correctly, 
we can instruct it to do this as it is copying. This is done by placing a V in 
square brackets after the command, like this: 


B:=A:*.* [V]. 


The v stands for Verify. By the way, the Commodore performs an 
automatic Verify, so the Option [V] command usually isn't necessary. But 
you should get into the habit of using it, so that if you switch to CP/M ona 
different computer model, you will have the same data verification. 


As PIP is working, it displays the name of the file which it is copying. 
When work is completed, the * prompt is delayed. If there are no further 
commands, press <RETURN> and the familiar CP/M A> prompt is 
displayed. 
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3.6 Rules for filenames 


You've run across the term files several times now, and you've seen 
filenames in the directories on your screen, but you still don't know what a 
file is, does, or what it's used for. 


As you know, every file in CP/M has a name. That is important to you 
because it lets you see what is on a diskette. Unfortunately, CP/M's 
designers built in a few annoying limitations regarding filenames. 


A filename in CP/M may have a maximum of eight characters, followed by 
a period, and then optionally followed by a three character extension to 
specify the data type. That means that filenames can use no more than eight 
characters, but must be descriptive enough to identify the file's contents. 


Allowed characters for the filename are the 26 letters of the alphabet, 
numbers 0 through 9, and +, -, /, 3, and $ characters. 


The following characters are not allowed in filenames or extensions, 
because they have special meaning in CP/M: 


z= 7 , =] ee Bt FF 2 


Experience has taught us to always give a file a meaningful name. It's much 
harder to remember the contents of a file named XK2512AC.ABC, than 
PAYROLL.DAT.You can have two files on a diskette with the same 
filename, but different extensions, e.g. PAYROLL.DAT and 
PAYROLL. CMD. 
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An extension 1s a three-character suffix that follows the filename. The idea 
behind an extension is to group similar files by type. Over time, users of 
CP/M systems have more or less standardized the extension names. 


Programs that are ready to run by typing their name at the prompt (e.g. A>) 
have the extension of COM. You'll notice that PIP, SYSGEN and COPYSYS 
all have a COM extension. 


Some programs make a copy of a file that may be modified. For example, if 
you are using the CP/M editor ED to modify a file called TEXT . DAT, it first 
creates a copy of that file with the extension BAK or $$$. BAK stands for 
backup. The data files with $$$ extensions are temporary data files. They 
are used by a program and erased at the end of a program run. For example, 
PIP uses temporary data files and erases them completely from the diskette 
when its job is finished. Name your files to avoid confusing CP/M, as well 
as yourself. 


If you use the same filename for more than one file and distinguish between 
them by using a different extension, then you should be aware of potential 
problems. Suppose you have two files named TEXT.1 and TEXT. 2. 
When you use ED to edit TEXT .1. it creates a copy of the original and 
remnames it TEXT .BAK. What happens if you now edit TEXT .2? When 
ED finds a file already named TEXT . BAK, it deletes it and thus destroys any 
backup copy of the original TEXT .1. Therefore you won't be able to use 
the original TEXT .1 (now TEXT .BAK) file after editing TEXT. 2. 


To avoid this problem, you might name the first file TEXT1.TXT, the 
second one TEXT2 . TXT, and the third TEXT3 . TXT. 


Then if you modify a file, a back-up copy is always created—you can 
always retrieve your original text if necessary. 
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3.8 Finding a data file 


If you use your computer often, you'll probably create a lot of different 
files. This might make it difficult to locate files that you're looking for in the 
directory. It would be nice to be able to view files, for example, with names 
similar to TEXT . TXT that are contained on the diskette. 


There are two different ways to search for these files. 


The asterisk, you'll recall, is a wildcard. It can represent any string of 
characters. 


The question mark is a wild card for a single character in a filename. 


For example, the parameter TEXT? searches for all files with the name 
TEXT or with the name TEXT and one additional character. From the 
previous example, the files TEXT1, TEXT2 and TEXT3 would be found 
with the command: 


DIR TEXT? <RETURN> 


If a file named TEXT is also on the diskette, it too will be found and 
displayed. CP/M always reserves eight characters for a data filename. If you 
enter a filename with fewer than eight characters, CP/M fills in the rest of 
the positions with blank spaces. Therefore, blank spaces are as equally valid 
characters as are letters or digits. 
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3.9 Searching with a question mark (?) 


Since the question mark can represent any character, then not only the files 
TEXT1, TEXT2 and TEXT3 will be found, but also the file TEXT. Entering 
a question mark doesn't let you delete a character, however. You can use as 
many as eight question marks when entering the file name and up to three 
question marks for the extension. 


But this is wasted typing, since entering the beginning characters for a 
filename followed by an asterisk for the extension will do the same thing. 
The operating system doesn't distinguish between eight question marks and 
one asterisk. CP/M converts every asterisk into eight question marks before 
the search begins. 


You can search using the asterisk more exactly if you put the first letter or 
letters of the desired data file in front of the asterisk. However, the search 
won't work if you enter an asterisk followed by letters. This method of 
inputting file names with question marks or stars, can be used with the 
commands DIR, TYPE, ERASE, SHOW, and PIP. 


3.10 Summary 


¢ You can now copy your system diskette and store your 
original in a safe place. 


¢ You can simplify data file searches using asterisks and 
question marks in place of letters. 


¢ You know that you should always use meaningful names 
for files. 
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The resident (built-in) commands 


In the last chapter we became acquainted with several of CP/M's basic 
commands. In this chapter we'll take a closer look at a number of resident 
CP/M commands: USER, DIR, DIRS (YS), ERA(SE) , REN (AME) , and 
TYPE. 


We'll also take another look at the transient programs. They are the CP/M 
programs that appear in the directory and are stored as COM data files. 


Finally, we'll expand on your knowledge of the DIR and PIP commands 
covered in Chapter 3. 
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4.1 Commands, parameters, and options 


Let's take care of some preliminaries. 
A command is a keyword that tells CP/M to perform a specific action. 


A parameter is usually a filename that informs a command which file or data 
to use. 


An option is a directive that changes the way the command functions. 
Options are specified in square brackets. An example of an option using PIP 
is the directive to verify the files as they are copied, [V]. 


The number and type of parameters vary, depending on the particular 
command. If a parameter is required, but omitted, CP/M waits for you to 
enter it. It will not continue until you enter a parameter. 


The command and parameters must be separated by at least one space. This 
is the only place where spaces are allowed. Spaces are not allowed within 
commands, parameters, or options. 





If a parameter is too long to fit on a single line, you can use <CONTROL> 
E to continue entry on the following line. Commodore CP/M begins a new 
line on its own whenever this becomes necessary. CP/M reads the two lines 
as a single command line. 
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4.2 The resident commands 


AS previously mentioned, two types of commands are made available when 
CP/M is started. 


Resident commands are loaded into memory from the file CCP . COM. 
Resident commands are built-in; that is, they are always in memory and 
ready for execution. To execute a resident command, type its name:DIR 
<RETURN3>, and it will immediately start. 


A transient command is not loaded into the computer's memory until it is 
needed. To execute a transient command, you also type its name: PIP 
<RETURNS>, but it does not start immediately. Instead, it's loaded into the 
computer's memory from the system diskette and then started. Thus you'll 
notice a short delay as a transient command is read from diskette and then 
Starts its execution. 


CP/M 3.0 has six resident commands. They are listed below: 


DIR DIR Shows the contents of a disk 
DIRSYS DIRS Shows the SYSTEM data files 
ERASE ERA Erases files 

RENAME REN Changes filenames 

TYPE TYP | Shows text files 

USER USE Change's user range 


You can execute a resident command by entering either the command or its 
abbreviation. 


A seventh resident command doesn't have a name. This command allows 
you to switch from one drive to the other. To Jog onto drive B from drive A, 
type the following at the A> prompt: 


A>B:<RETURN> 
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You can use drive designations from A to E. Any other designation causes 
the following error message: 


CP/M Error On F: Invalid Drive 
BDOS Function 14 


If you're now using drive B and the system diskette is in drive A, you can 
still access programs from drive A. To do this, prefix the command with the 
drive designation like this: 

B>A:DIR 
You can also prefix a parameter with a drive designation: 


B>DIR A:DATEI .XXX 
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4.3 USER and user areas 


The USER command lets you divide an external storage media (floppy 
diskette or hard disk) into 16 areas. The areas are identified by numbers 
from 0 to 15. These areas are quite useful when several users are sharing a 
computer and and need to keep separate files, especially if the storage media 
is a hard disk. User areas make it easier to manage the large number of files 
that can be stored on the hard disk. 


By specifying a separate user area for a particular purpose, you can better 
organize the data on the storage media. For example, in a classroom, each 
of 16 different students are assigned a unique user area. Or, you could 
designate one user area for text files, an area for your BASIC files, an area 
for your business letters, etc. 


By dividing storage space into user areas, it's also possible to have two data 
files with exactly the same name and type identifier stored on the same 
storage device. Each data file goes into a separate user area. 


4.3.1 USER areas in CP/M 3.0 


User area 0 has a special function. Any programs and data files that are 
stored in user area 0 can be made available from any other user area, by 
making them SYS files. You might think of these files as public files. They 
can be made available to all users, like books at a public library. Files in 
other areas can be thought of as private files. They are available only to a 
specific user, like books in a private library. 


When CP/M starts, you are automatically placed in user area 0. To change 
to a different user area issue the USER command: 


USER 3 <RETURN> 


and you're changed over to user area 3. Make sure that there is a space 
between USER and the number of the user area. You'll notice that the CP/M 
prompt changes. Instead of A>, the prompt now reads 3A> to let you know 
which area you are using. 
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Naturally you can use another disk drive. To log on to the B drive, just type: 
3A> B: <RETURN> 
and the prompt changes to 3B>. 
Alternate methods of getting to this user area on drive B are: 
A> B3: 
(or) 
A> 3B: 
If you are using both A and B drives, get back to the A drive: 
3B> A: <RETURN> 
If you display the directory now, the message NO FILE appears, since you 
haven't put any files into user area 3. CP/M separates the directory entries 
by user areas. This is helpful if many files in a single user area need to be 
displayed. 


All of the built-in, resident commands are available from any user area. 
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4.4 DIR 


We've already discussed the DIR command. Actually, there are two 
different versions of the DIR command: one is resident and the other is 
transient. If you enter DIR without any options (in square [] brackets), 
then the resident version is used. But if you do use options, then the 
transient version from the diskette (DIR .COM) is used. 


The resident version displays the files on the diskette in the current user 
area . If you are logged on to user area 3, then only files stored in user area 
3 are displayed. 


Quite often, so many files are contained on a diskette that the directory 
doesn't fit on a single screen. You can pause the directory by pressing 
<CONTROLS> S, continue the display by pressing <CONTROL> Q, or 
stop the directory by pressing <CONTROL> C. 


If you are logged onto drive A but want to see if the contents of drive B, you 
can type: 


A> B: <RETURN> 
B> DIR <RETURN> 


This logs you onto drive B and then displays the directory. Alternatively 
you can type: 


A> DIR B: 
This keeps you logged onto drive A., but displays the directory of drive B. 


To get a hardcopy of the directory you can press <CONTROL> P before the 
DIR command. The <CONTROL> P turns on the printer hardcopy . Any 
information that is normally displayed on the screen is now redirected to the 
printer. Turn off the hardcopy by pressing <CONTROL> P again. This 
key combination is a toggle command, turning the hardcopy on and then off 
again. 
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4.4.1 DIR with parameters 
You can also use parameters with the DIR command. If you have a large 
number of directory entries on a diskette, you can display the entry for a 
particular file, instead of reading through all the entries: 

DIR B: TEXT.TXT <RETURN> 


The filename is displayed if TEXT . TXT exists on the diskette in drive B. If 
the file is not on the diskette, the following is displayed: 


No File 
To use more complex functions of the DIR command, you must use the 
transient version. In this case, you must make sure that the file DIR.COM. 
is on the logged disk (usually on the A drive). For example, if the system 
diskette is in drive A, but you are logged onto drive B, you must issue the 
DIR command with options like this: 
B> A:DIR [Options] 


This ensures that DIR.COM is loaded from the A drive. 


4.4.2 More about DIR 
You'll recall that you can use asterisks in the DIR command. For example: 
DIR *.COM 
displays all of the * . COM files on the logged diskette. 
You can also display the directory entries for several different file types: 
DIR *.COM *.SYS 
However, the above command will cause an error: 
BE NO S 


Only the transient DIR command can handle this request. 
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To use the transient DIR command, do one of the following: 


¢ prefix DIR with a drive identifier 
e.g. A: OrB: 


¢ append an option to the DIR command 
e.g. [FULL] or [DIR] 


4.4.3 DIR and its options 


Up to 18 different options are available to DIR. Normally you will won't 
use more than two of DIR's options at the same time. Options are always 
indicated by square brackets. | 


If more than one option is entered, they must be separated with commas or 
blank spaces. If the symbol of the option is unambiguous, you can 
abbreviate the option's name to two letters. You can also leave out the 
closing square bracket, but only if it's the last character on the command 
line. 


For example: 


DIR *.COM *.SYS [FULL] 
DIR *.* [NOSORT, SIZE] — 
DIR *.BAS [USER=5 NOSORT SIZE 


If the transient DIR is used, DIR. COM is loaded into the TPA. Remember 
that DIR.COM is about 15 KBytes in length and must be found in the 
directory before it is loaded. When it first starts, the screen displays: 


Scanning Directory... 


It then looks at the parameters and options. When this is done it begins to 
sort the filenames into alphabetical order (unless the NOSORT option is 
entered). DIR displays: 


Sorting Directory... 


Then the directory is displayed to the screen or the printer. A typical 
printout looks like this: 
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ener SS 


Directory for Drive A: User 0 


Name Bytes Recs Attributes Name Bytes Recs Attributes 
CCP COM 4k 25 Dir RW COPYSYS COM 1k 3 Dir RW 
CPM+ SYS 23k 182 Dir RW DIR COM 15k 114 Dir RW 
FORMAT COM 5k 35 Dir RW HELP COM 7k 56 Dir RW 
HELP HLP 83k 664 Dir RW  KEYFIG COM 10k 75 Dir RW 
KEYFIG HLP 9k 72 Dir RW PIP COM 9k 68 Dir RW 
Total Bytes = 166k Total Records = 1296 Files Found = 10 
Total 1k Blocks = 166 Used/Max Dir Entries for Drive A: 16/ 64 


4.4.4 DIRSYS 
When you display the directory, you may notice the following message: 
SYSTEM FILE(S) EXIST 


It tells you that, in addition to the files listed, the diskette also contains the 
system files. If you don't see the message, then no system files are 
contained on the diskette. System files are stored in user area 0, and can be 
read and used by every work area. If you'd like to display the names of the 
system files, enter the command DIRSYS or the abbreviation DIRS. Under 


the listed files you then receive the message that No system files 
exist. | 


You have the same capabilities with the command DIRSYS as with the 


command DIR. You can also use asterisks and question marks, as in the 
DIR command. 


54 





Abacus Software C-128 CP/M User's Guide 


4.5 ERASE 


The capacity of a diskette is limited, and therefore limits the number of 
entries on a diskette's directory. On a single-sided diskette, there is room 
for exactly 64 entries. On a double-sided diskette, the limit is 128 entries. If 
you use the transient DIR command, the maximum and current number of 
directory entries on the diskette is displayed. 


When a file is no longer required, you will want to delete or erase it. This 
frees up space on the diskette so that it may be used by other programs. To 
do this you can use the ERASE command. 
Enter the command like this: 

ERASE d:name 


The d represents the disk drive identifier. The name stands for the filename 
to be erased. If you are logged onto drive A and want to erase a file on drive 
A, then you can omit the drive identifier. The ERASE command can be 
abbreviated to ERA. 


Like the DIR command, you can use asterisks and question marks with the 
ERA command. You should be very careful when using * or ? with ERA. 
It's easy to accidentally erase the wrong files and suffer the consequences 
afterwards. 


To erase a specific type of file, for example, files with a BAK extension, 
enter: 


ERA *.BAK 
The following message is displayed: 
ERASE *. BAK (Y/N)? 
This is asking you to confirm the deletions. It's a safety precaution 


requiring you to respond before CP/M erases all of the files with the . BAK 
extension. Answer Y to delete the entries or N to abort. 
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If you are really brave, you can also erase all of the files on a diskette with 
this command: | 


ERA *.* 
Once again you are asked to confirm the deletions: 
ERASE *.* (Y/N)? 


If you respond by typing a Y all of the files will be erased. 


4.5.1 Erasing with ERA in CP/M 3.0 

Suppose that you want to erase all .BAS files on a diskette. You would type: 
ERA *.BAS 

The following is displayed to make sure the files really should be erased: 

ERASE *.BAS (Y/N)? 

Before you answer Y for yes, you should double-check your typing. Are 

you certain that the command is correct and that you really want to erase this 

file type? Once you've typed a Y, there's no way to get the files back. The 

files are gone completely. Check especially for typing mistakes. For 


instance, it's easy to mistakenly type PAS instead of BAS. If you type in the 
command like this, all the Pascal files on your disk are erased. 


To protect yourself against these unpleasant surprises, there are two ways to 

prevent accidental erasure. First, you can write-protect the individual files. 

You'll see how to do this shortly. Second, you can ask the ERASE 

command to confirm each deletion individually. To do this you must enter: 
ERASE *.BAK[(C] 


Here, all files with the extension . BAK are erased, but only if you respond 
Y to the confirmation message. 
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4.6 Changing filenames with REN (AME) 


To rename files, you use the RENAME command. The format looks like this: 
RENAME newname=d:oldname 

Note that newname precedes the oldname and that they are separated by the 

= sign. If the file oldname is on the logged drive, you can omit the drive 

identifier d.. 


If the file newname already exists, you are asked if it should be erased 
before oldname is renamed to newname: 


Error: Not renamed, newname file already exists, 
delete (Y/N)? 


If you answer this question with N, then RENAME is aborted. 

If you enter Y, then the file newname will be erased, and the file oldname 
is renamed newname. It is interesting that the resident part of RENAME 
takes care of simple renaming, but if there are options—in this case, the 


new file already existed—then the transient RENAME is loaded before it 
continues. The abbreviation for RENAME is REN. 


Here is an example of a "simple" renaming: 
REN new.bas=old.bas 


You can also use asterisks and question marks with the RENAME command. 
A simple example might look like this: | 


RENAME *.TXT=* .BAK 
This command changes all the files with the extension TXT to files with the 


BAK extension. The RENAME command doesn't change the contents of a 
file, only its name. 
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4.7 TYPE 


The TYPE command displays the contents of a file on the screen. It will 
display the contents of any text file that uses the ASCII character set. Other 
file types, for example COM or REL files, may contain characters that cause 


strange output or cause the computer to hang up. The format for the TYPE 
command is: 


TYPE d:filename 


To display the contents of a file from other than the logged drive, enter a 
different drive identifier. 


The TYPE command displays 23 lines of text per screen. You can read the 
text on the screen an then press <RETURN> to view the next 23 lines of 
text. By entering the option [NOPAGE] the text is displayed in its entirety 
by scrolling continuously. You can halt the scrolling by pressing 
<CONTROL> S, and then restart the scrolling with <CONTROL> Q. Also, 
you can toggle <CONTROL> P to send the text to the printer. 


The reverse side of the CP/M System diskette (the side titled UTILITIES) 
contains an assembler source file DATE. ASM that is a good example for 
using the TYPE command: 


TYPE DATE.ASM 


4.8 Summary 


¢ CP/M has built-in commands that make it possible to work 
with and manipulate files on a disk. 


¢ Commands can be entered with parameters or options. 
¢ You know the names of all the built-in commands, how they 


work, and which options work only with the transient 
commands. 
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The transient commands 


5.1 Introduction 


You have just read about CP/M's built-in, resident commands. But the real 
power of the operating system comes from transient commands. These are 
listed as COM files in the directory. We've noted several times that these 
commands are loaded into memory from diskettes when needed. These 
commands are stored on diskette for good reason: they are simply too big 
and would take up too much internal memory if they were built-in. Their 
size is due to the large number of options they give you. 


Transient commands are first searched for in the directory and then loaded 
into memory. Therefore, they aren't as quickly accessible as their resident 
command counterparts. Keep this in mind when you work with CP/M. 


5.2 Transient commands under CP/M 


Now we'll take a look at important and often-used CP/M commands. Here 
we're referring to the transient commands found in the directory with COM 
extensions. You already know how to call the programs—type in the 
program name without the extension and press the <RETURN> key. There 
are three methods to call transient programs. First, you can work in user 
area Q. Second, you can make a program accessible to all user areas with a 
SET command. Third, you can use the SETDEF command. We'll talk more 
about this third command later. 
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5.3 SET 


The SET command performs several tasks . Its main job is to set various 
file attributes. Attributes are special characteristics of a file. For example, 
you can use the SET command to make your CP/M files in user area 0 
available to all user areas. Or you can protect a file by indicating, "This file 
is read-only" or "This file is protected by a password." 


The SET command also contains options which affect the table of contents 
(directory). For example, you can timestamp every file in the directory, to | 
allow you to determine when the program was first created and when it was 
last accessed. You can use this timestamp later, to automatically back up all 
the files that were altered since a certain date to another diskette. 


Here is an overview of the various options of the SET command: 


Option | Meaning 

DIR Makes a system file visible to the normal directory. 
SYS Makes a file for SYSTEM file. 

RO Makes the file read-only. 

RW Makes a file read and write. 


ARCHIV=OFF Sets the ARCHIV attribute to off. That means that the 
file hasn't been backed up (put in an archive) yet. The 
program PIP can copy the files with the attribute 
ARCHIV=OFF by using option AAU. You enter the 
PIP command with asterisks for the filenames and 
PIP will copy all the files that have been changed 
since the last copying with PIP using option AAU. 
After PIP copies the files, it sets the file attribute to 
ARCHIV=ON. 


ARCHIV=ON Sets the ARCHIV attribute on. That means that this 
file has been backed up. Normally PIP, using option 
[A], changes the attribute after backing up the data. 
You can change the attribute yourself as well by using 
the SET command. 
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F1=ON/OFF Switches the user-defined file attribute F1 on or off. 
F2=ON/OFF Switches the user-defined file attribute F2 on or off. 
F3=ON/OFF Switches the user-defined file attribute F3 on or off. 
F4=ON/OFF Switches the user-defined file attribute F4 on or off. 
Let's see some examples of the SET command. 


Suppose you have a program called MYPROG. COM that you want to be able 
to use from any user area. Normally this program is placed in user area 0. 


An alternate way is to make your program a SYSTEM file. You can do this 
with the SET command: 


SET MYPROG.COM [SYS] 
You can also protect your program from being overwritten: 
SET MYPROG.COM [RO] 
Or you can make it a SYSTEM file and protect it: 
SET MYPROG.COM [SYS RO] 
To undo the attributes, you can enter: 
SET MYPROG.COM [DIR RW] 


The options may appear in any order ( [DIR RW] or [RW DIR] ) and 
may be separated by spaces or commas. 


Note: To use the preceding commands, you should initialize the directory 
using the INITDIR command. You can prepare a diskette by typing: 


INITDIR A: 


This command reorganizes the directory of a diskette and prepares it for 
timestamping. 
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5.4 Disk drive characteristics 


You can protect the contents of an entire disk drive so that information can 
only be read from it and can't be written to it. If you've set a disk drive to 
RO (read only), files can't be erased with ERASE, RENAME doesn't work, 
and PIP can't copy files to to that drive. 


To do this, enter: 


SET A: [RO] 


Then, drive A is set to read-only. If you enter an RW (read/write) 
instead of RO, the drive can be written to again. Setting the read-only 
attribute does the same thing as putting on a write-protect tab. 


5.5 Labels 


You can give an entire diskette a name. A disk name is limited to eight 
characters, the same as for a filename. To do this you use the NAME= 
option of the SET command: 


SET B: [NAME=FIBU] 


If you have only one disk drive, the SET command will work if the file 
SET .COM is on the diskette being accessed. To get around this limitation, 
use the virtual disk drive E. Enter the following while the diskette 
containing SET. COM is in the drive: 


SET E: [NAME=FIBU] 
CP/M loads the required file SET .COM, and then asks you to insert the 


diskette representing drive E into the drive A. If you've entered the above 
command, the following text will appear on the screen: 
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Label for drive E: 


Directory Passwds Stamp Stamp 
Label Reqd Create Update 
E: FIBU off off off 


We'll talk about the other options marked off shortly. 


The DIR command does not display a disk's name. To see the disk's name, 
use the SHOW command with the LABEL option: 


SHOW E: [L] 


When using one drive and the virtual drive E, CP/M repeatedly requests you 
to insert a disk into either the E or A drive. After you've responded to the 


request, press the disk A or disk E in the drive. Answer the request and then 
hit the <RETURN> key to proceed. 


Now the output is more detailed than when we entered the SET command: 


Label for drive E: 


Directory Passwds Stamp Stamp 
Label Reqd Create Update Label created Label Updated 
E:FIBU. off off off 12/06/85 01:04 12/06/85 01:04 


Just like with more expensive computers, the creation date and the last time 
the file was updated are displayed. Whenever a file's contents are changed, 
the date of the update is also changed. Doing this gives us several 
advantages. For example, you can use the PIP command with a special 
option to update all the files that were changed on one particular day. But 
this is relevant only if you religiously enter the date and time using the 
DATE command whenever you work on the computer. Otherwise, the dates 
are inaccurate—like the ones in our example. 
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Passwords can be used to prevent unauthorized access to data files. You can 
assign a password to an entire diskette and thereby restrict access to that 
diskette, as well as restrict the use of the SET command for the diskette. 


Before assigning a password to a diskette, it must have a label ( SET da: 
[name=label] ). To assign a password enter: 


SET d: [PASSWORD=password] 


Now the diskette is password protected. If you try to use the SET command 
for this diskette the following is displayed: 


Directory label 
Password? 


Enter the correct password and press <RETURN> to gain access to the 
diskette. You'll notice that the password is not displayed on the screen as 
you're typing at the keyboard. This is an added security measure. 
To remove a password from the diskette type: 

SET [PASSWORD=<cr> (<cr> = <RETURN>) 


Naturally you can remove the password only if you already know the 
password beforehand, since CP/M requires you to enter it here. 
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5.7 File PASSWORD 
You can also assign a password to an individual file on a diskette. To assign 
file passwords you must allow the diskette to be protected: 
SET d: [PROTECT=ON] <RETURN> 
where d is the drive indicator for the diskette. 


Now you can assign a password to an individual file. To assign the 
password SECRET to the file DIR.COM, type: 


SET d:DIR.COM[PASSWORD=SECRET ] <RETURN> 
To remove a password from the file, enter: 
SET d:DIR.COM[PASSWORD=off ] <RETURN> 
There are also several other options for protecting files: 


READ The password is required to read, copy, write, erase, 
or rename a file 


WRITE The password is required to write to, erase, or rename 
a file. 


DELETE The password is required only to erase or rename a 
file. 


NONE The password is removed 
If you omit the option, READ is the default. Enter the option like this: 
SET E:TEXT.TXT [PROTECT=DELETE] 
This protects the file TEXT . TXT against accidental erasure. 
To avoid confusion, we should understand that you cannot protect COM files 


in this way. If a COM file has has password with READ option, when you 
try to run this command you see this: 
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CP/M Error On A: Password Error 
BDOS Function = 15 File = DIR .COM 


You are not asked to enter the password before the command is run—the 
command is simply aborted. ; 


When you want to remove a password, you are first asked to enter the 
password, which must be entered correctly. If you don't enter the password 
correctly, then you won't be able to remove it. This prevents unauthorized 
users from using these files. 
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5.8 Time Stamping 


A time stamp is similar to punch-clock in a factory that records each 
employee's working hours by the date and time. CP/M can timestamp files. 
The timestamp can then be used to determine the last time a file was 
accessed or updated, for example. = S | 

Three steps are required to use timestamping: 


DATE command to set the date and time 


INITDIR command to prepare a diskette's directory to record the 


timestamp 
SET command to turn on the timestamping 
To set the date and time enter: 


DATE SET <RETURN> 
The DATE command displays: 
Enter today's date (MM/DD/YY): 
Enter the date in the format month/day/year including the slash 
between numbers and press the <RETURN> key. Next the DATE 
command displays: 
Enter the time (HH:MM:SS): 


Enter the current time in the format hour:minutes:seconds 
including the colon between numbers and press <RETURN>. 


You can verify your entries by entering: 
DATE <RETURN> 


This displays the date and time. These values are updated as long as the 
computer's power remains on. 
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Next you must initialize the diskette to accept the timestamps. Here we 
use the INITDIR command. We recommend that you first make a 
backup copy of the diskette. Since the INITDIR reorganizes the 
diskette's directory, if it should encounter any errors, the data on the 
diskette may become inaccessible. This is why we recommend making 
a backup. To initialize the diskette for timestamping, enter: 

INITDIR d: <RETURN> 
The INITDIR command displays the following: 


INITDIR WILL ACTIVATE TIMESTAMPS FOR SPECIFIED DRIVE 
Do you want to re-format the directory on drive:d (Y/N)? 


Press Y and <RETURN> to reorganize the directory. 


Now you can use the SET command to begin recording the timestamps. 
There are three options available: 


CREATE=ON _ records the time stamp only when a file is created. 

ACCESS=ON _ records the time stamp when a file is read. 

UPDATE=ON records the time stamp when a file is changed. 
CREATE and UPDATE are mutually exclusive. You can also turn off the 
time stamp by using OFF in place of ON.This is because when you change a 
file, you make a new file. The old file becomes a BAK (backup) copy. 
To record the current date and time, you enter the following command: 

SET E: [ACCESS=ON] 


To see the result of this command, enter: 


DIR[FULL] 
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The following directory will be displayed: 
Directory for Drive B: 


Name. Bytes Recs Attributes Prot Update Access. 


TEXT.TXT 5K 38 DIR RW NONE 04/01/85 17:31 
FIBU 20K 152 SYS RO NONE 04/01/85 09:10 


The ACCESS option lets you find out when you last accessed a file. The 
command for two entries in the table of contents looks like this: 


SET E: [CREATE=ON, UPDATE=ON] 
This directory 1s then displayed: 
Directory for Drive B: 


TEXT.TXT 5K 38 DIR RW NONE 04/17/85:10:00 01/01/85 09:00 
FIBU 20K 152 SYS RO NONE 04/17/85:16:43 01/01/82 19:21 
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5.9 SETDEF 


After CP/M receives a command, it always looks for the specified file on the 
disk drive currently in use—indicated by the the drive designator displayed 
onscreen. The SETDEF command lets you alter this. For example, if you 
are working with drive B but have all your CP/M files stored on drive A, 
SETDEF will allow you to tell CP/M the search path to use. In this way you 
can store and retrieve programs from the correct disk dirve automatically, 
without having to specify the drive designator every time. 


If you enter: 

SETDEF <RETURN> 
you'll receive information about the current search path, which disk drive is 
used for temporary files, and what type of file is being sought. It looks like 


this on the screen: 


Drive Search Path: 


lst Drive - Default 
Search Order - COM 
Temporary Drive - Default 
Console Page Mode - On 
Program Name Display - Off 


You can change the search path with the following command: 
SETDEF A: 
This command instructs CP/M to search for and retrieve the desired files on 
drive A only, even if you are presently working on drive B. You can expand 
the command like this: 
SETDEF A:,* 
CP/M then first looks for the files on drive A, and then on the drive 


currently in use (represented by the asterisk ). Each time you enter a 
SETDEF command, you get an information list as follows:. 
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Drive Search Path: 
lst Drive - A: 
2nd Drive - Default 


You can have this information sent to the printer with <CONTROL> P. 


If you want temporary files (like the ones PIP uses) to be written to a 
specified drive, enter: 


SETDEF [TEMPORARY=E: ] 
This command will write temporary files to the virtual drive E. CP/M 
recognizes the temporary files because their $$$ file extensions, as 
discussed previously. 
SETDEF normally only searches for files with a COM or SUB extension. By 


default, CP/M searches for CoM files first, but this order can be changed 
with the following command: 


SETDEF [ORDER= (SUB, COM) ] 
This changes the search order so that SUB files are sought first. SUB files 


are called with the SUBMIT command, and contain a batch of runable 
commands. We'll discuss the SUBMIT command in detail shortly. 
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5.10 SHOW 


The SHOW command can give you a lot of information about your disks: the 
amount of space on your disks, the names of your disks, and the number of 
files per USER. When you enter: 


SHOW 


you'll see the status of all of the disk drives, as well as the remaining space 
on each drive. Obviously, the utilities disk must be present in the drive. 


A: RW, Space: 11k 
E: RW, Space: 2k 


If you enter the drive designator behind it, you only get information for the 
disk in the specified drive. 


The SHOW command also lets you see the labels on your disk: 
SHOW A: [LABEL] 


You can abbreviate LABEL to L. On the screen you will see the following 
table of contents: 


Label for drive A: 


Directory Passwds Stamp Stamp 
Label Reqd Create Update Label Created Label Updated 
FIBU.COM off off off 04/17/85 11:41 04/17/85 11:41 


Another option of the SHOW command lets you see which USER areas on 
your disk are being used, and how many files are in each area. Enter this 
option as follows: 


SHOW A: [USER] 


The command will display the number of free entries in a table of contents: 
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Active User : 0 
Active Files: 0 2 11 12 
# of files :226 141 


Number of free directory entries: 24 


If you simply enter: 


SHOW A: [DIR] 


you'll just be shown the number of free directory entries—you get the last 
line of the previous screen display. 


The SHOW commard is closely related to the CP/M 2.2 command STAT. 
CP/M 3.0 features several new commands that are derived from the single 
CP/M 2.2 STAT command. Therefore, the SHOW command is more 
powerful and user-friendly than its predecessor, and has none of its 


limitations. 
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5.11 SUBMIT 


You've learned to enter CP/M commands through the keyboard. By now 
you've probably noticed that you have to type in the same commands and 
same instructions over and over again. This redundant input can get quite 
annoying. CP/M has a command to relieve you of this burden. 


The SUBMIT command lets you store a "batch" of often-used commands 
and the '128 will treat them like keyboard input. A SUBMIT file has the 
extension SUB. 


The SUBMIT command can make repetiitve CP/M tasks much easier. For 
_ example, the '128 doesn't have a built-in clock. Consequently, you have to 
enter the time and date every time you boot up the computer. If you want to 
require an up-to-date time stamp on every file access, you can make use of 
the file PROFILE. SUB. This file will be accessed and run after every boot 
or restart. The file's commands will be used as a SUBMIT file. 
PROFILE. SUB is comparable to the AUTOEXEC . BAT files on the IBM PC 
and compatibles. 


If you decide that the time and date should be entered, you don't enter it in 
the usual way. You write the file like this: 


A:DATE SET 


and name this file PROFILE. SUB. (You can also enter another disk drive, 
providing it contains the DATE.COM file). Don't forget the SUB extension. 


If you want to enter a file through the keyboard, you can use the editor ED. 
Since ED is quite difficult to use, there is still another possibility: by using 
the PIP commands. You can enter files through the keyboard with the PIP 
command, but cannot edit them: 


PIP PROFILE.SUB=CON: 


Wait until the disk drive stops running. Enter the line of text above 
(A:DATE SET) and then hit <RETURN>. If you want to enter several 
lines, continue to make entries. You must enter <CONTROL> Z as the last 
line. | 
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A SUB file holds many possibilities. It can contain CP/M commands, 
interlocked SUBMIT commands, or input programs or CP/M commands. 


You can also use parameters in a SUB file. These parameters are represented 
by dollar signs ($). You can use the parameters $1 through $9. 


For example, enter the following lines: 


ERA $1.BAK 
DIR *.$2 


Name this file DIR.SUB. The set of commands in this file first erase all 
files with a particular name and with the extension .BAK. Then it displays 
all the files with a particular extension. To run the file, you enter: 


SUBMIT DIR TEXT COM 


Here DIR 1s the name of the SUBMIT file, and TEXT and COM replace the 
parameters $1 and $2. When the file is run, first all the files with a BAK or 
$1 extension are erased. Then all the files with a COM extension are 
displayed (provided the SUBMIT . COM file and the SUB file are on the same 
disk side: otherwise the virtual drive E must be used). The "translated" 
SUBMIT file—the submit files with its inputted parameters—looks like this: 


ERA TEXT. BAK 
DIR *.COM 


CP/M uses these commands as if they were entered through the keyboard. 


If you enter fewer parameters than there are in the SUBMIT file, those 
parameters won't be used. If you enter more parameters than the SUBMIT 
file contains, the extraeneous parameters are ignored. If you want to use a 
dollar sign in a command inside a SUBMIT file, enter two dollar signs ($$). 


A SUBMIT file can also execute command input for programs. You can call 
a program with one command line and use the next to enter commands to 
the called program. For example: 


PIP 
<B:=A:*.COM 
< 

DIR *.COM 
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This small SUBMIT file calls PIP .COM in the first line. The second line is 
the command to copy all the COM files to drive B. The third line exits PIP, 

and the fourth displays the directory. All commands to be entered into a 
program are identified with a less than sign (<). If you enter a command 
without additional parameters, as with the third line, it signifies a 
<RETURN3>, which in this case ends PIP. 


The SUBMIT command can be quite useful. For example, you can execute a 
series of files and go get something to eat while they run. You write the 
command file like this: 


PIP LST:=FILE1 


PIP LST:=FILE2 
PIP LST:=FILE3 


PIP LST:=FILE9 
You can accomplish the same thing with the following command line: 
PIP LST:=FILE? 
Name the file BUNCH . SUB and enter the following before you leave: 
SUBMIT BUNCH.SUB <RETURN> 

You can also store the individual files on different disk drives. You need 
only write the drive designator in front of the filename and SUBMIT 
searches for all the files concurrently. 

You could write a command file to list all the data files in all the USER areas 
on a hard disk drive. The screen output can then be written to a new file 


with the name Contents. In this file you can look for a specified file with 
a search command in your text program, or print the file list. 
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5.12 The HELP command 


By this time, you're probably having trouble remembering all of the many 
CP/M commands, not to mention all their options. Fortunately CP/M 
contains a help program to remind you of all the command codes and their 
options. You need only tell CP/M where you need help. 


Simply enter the command HELP: 


A:>HELP 


A menu with the possible help information packages is displayed on the 
screen. There you choose a subpoint and will receive information about it. 


Incidentally, the Commodore 128's keyboard features a <HELP> key that 
normally displays a program error in the BASIC operating system. Under 
CP/M, pressing this key displays the word HELP onscreen, without an 
automatic <RETURN>. This allows you to enter a word after it when you 
know which topic you need assistance with. 


The following is displayed the screen when you enter HELP without 
specifying a topic: 


HELP UTILITY V1.1 
AT "HELP>" enter topic [,subtopic]... 
EXAMPLE: HELP> DIR EXAMPLES 


Topics available: 


C128 MODE COMMANDS CNTRLCHARS COPYSYS DATE DEVICE 
DIR DUMP ED ERASE FILESPEC GENCOM 
GET HELP HEXCOM INITDIR KEYFIG LIB 
LINK MAC PATCH PIP (COPY) PUT RENAME 
RMAC SAVE SET SETDEF SHOW SID 
SUBMIT TYPE USER XREF 

HELP> 
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You can also enter the subtopics directly. For example, you can enter: 
HELP SETDEF 
This displays help information on SETDEF directly. 


The HELP program is contained in the file HELP .COM and HELP .HLP. To 
alter these files, call the file HELP . COM and enter the EXTRACT option: 


HELP [EXTRACT] 


The following display will appear on the screen: 


Extracting Data...Extraction complete 
HELP.DAT Created 


You can abbreviate the EXTRACT to an E. The HELP program then creates a 
new file with the name HELP .DAT . You can change this file as you see fit 
using your text editor. By using the EXTRACT option you set it up so that 
you can edit the topics. 


To enter new help text, you must follow certain format rules. Every option 
word must begin with three slashes (///) and a number. The number gives 
the help steps of the option. For example: 


///1DIR <RETURN> 
///2O0PTIONS <RETURN> 
///3PARAMETERS <RETURN> 
///4EXAMPLES <RETURN> 


Once you've made your changes, store the data and call HELP . COM again, 


but this time with CREATE option (abbreviated C). This creates a new 
HELP .HLP file that contains your text alterations. 
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5.13 Summary 


¢ You've learned about the transient commands of CP/M 


¢ You know the options that change or expand the tasks of the 
transient commands 


¢ You know that files can be given labels 


¢ You've seen how we can protect an entire disk, a file, or an 
individual CP/M command for restricted use 


¢ ‘You know how to prepare a time stamp for your files that 
furnishes the time and date of when a file was last accessed. 


¢ You know how to alter the file search path with SETDEF 


¢ You know how to display the system files of a disk using 
SHOW 


¢ You can use the PROFILE.SUB file to make your 
computer's boot routine automatically run a program | 
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Everything about PIP 


You've already heard about some of the capabilities of PIP. Here is a 
complete list of its capabilities: | | 


¢ Transfer a single file from one diskette to another 

¢ Transfer a group of files from one diskette to another 
* Copy a file and rename it 

¢ Format text for printing 

¢ Shorten lines of text in a file 

¢ Print a group of files 

* Merge several files into one 

¢ Access a section of a text file 

° Change lowercase letters to uppercase letters and vice versa 
* Reset the eighth or flag bit of a byte to zero 

¢ Insert line numbers into a file 

¢ Display a file during transfer 

¢ Transfer system files 

¢ Copy files from one user area to another 

¢ Automatically back up new or altered files 


As you can see, there are many uses for PIP. You might do well to read 
this chapter thoroughly so that you may use PIP to your greatest advantage. 
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6.1 Diskette copying 


Nearly every programming book advises you to make a copy of any original 
diskette for backup purposes. We saw how to do this earlier. Let's look at a 
simple example. To copy a file called TEXT . TXT from the diskette in drive 
A to the one in drive B, enter: 


A>PIP <RETURN> 
*B: TEXT. TXT=A:TEXT.TXT <RETURN> 


By doing this, you copy the file TEXT . TXT from the diskette in drive A to 


drive B and give it the same name. The original file in drive A remains 
unaltered. 


To copy the complete contents of a diskette, enter: 


A>PIP <RETURN> 
*B:=A:*,.* <RETURN> 


This transfers all of the files from drive A to drive B. If you have only one 


disk drive, you can copy all the files to the virtual drive E using the 
command: 


A> PIP E:=A:*.* <RETURN> 

This procedure involves more work for you, since you must alternate the 
diskettes in the single disk drive. But without it, you wouldn't be able to 
copy files with a single drive. 

There are a large number of options that may be used with the PIP 
command. One option is [V], for verify. As PIP copies a file with the 
verify option, the copy is checked to make sure that the data was transferred 
correctly. Enter the command like this: 


A>PIP <RETURN> 
*B:=A:TEXT.TXT[V] <RETURN> 


If you prefer, you can enter the parameters and options on the same line as 
the command, like this: 


A>PIP B:=A:TEXT.TXT[V] <RETURN> 
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Using this method, PIP immediately begins copying; when it has finished, 
it displays the prompt (A>). You probably noticed that we didn't enter a 
filename for drive B. The filename defaults to the same name as the file 
being copied. To change the filename when you copy, enter: 


PIP B: TEXT1.TXT=A:TEXT.TXT 
This lets you copy a file and change its name at the same time. 


Before copying files to another diskette, you should make sure that there is 
enough space on that diskette for the new file. | 


PIP transfers each file to a temporary file that has the same filename, but 
with the extension $$$. As each file is successfully transferred, PIP 
renames the temporary file with the specified filename. 


What happens when you try to copy a file to a diskette that already has that 
particular filename—for example, TEXT . TXT ? First, PIP transfers the file 
to a temporary file called TEXT .$$S. Next the old version of the file 
TEXT. TXT on the destination diskette is erased. Finally TEXT .$S$ is 
renamed TEXT .TXT. If the destination diskette doesn't have enough space 
for the new file, then you will have to erase the old TEXT: TXT file first. 


As-you transfer files using PIP without special options, the file attributes 
such as SYS, DIR, RO, and RW are also transferred. If you transfer a 
SYSTEM file, the copy will also be a SYSTEM file. 


If you transfer a file to a destination diskette that has the same filename and 


is write-protected (RO), PIP asks you to confirm that it should erase this 
file. Respond with either Y or N as appropriate. 
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6.2 Copying between USER areas 


Unless you specify otherwise, PIP copies files only within the same user 
area. If you are in USER area 3, PIP copies are transferred to USER area 3 
on the destination diskette. 

To transfer files from one USER area to another, you must specify the [G7] 
option, where n is the number of the new USER area. To transfer 
TEXT .TXT from USER area 0 on drive A to USER area 2 on drive B, 
enter: | 


PIP B:[G2]=A:TEXT.TXT 


This command assumes that you are logged onto USER area 0 when you 
enter the command. 


6.3 Text files and non-text files 


As far as PIP is concerned, it can differentiate between two types of files: 
text files and the non-text files. , 


A text file is usually created by an editor such as ED or a wordprocessor. A 
text file is stored as a series of readable characters. 


The end of a text file is indicated by a <CONTROL> Z character. As a 
result, any text following the <CONTROL> Z character in a text file is 
ignored. a 


Non-text files may contain any characters, not just readable ones. Therefore 
a non-text file may contain imbedded control characters like <CONTROL> 


Z. With*non-text files, PIP does not recognize <CONTROL> Z to be the 
end-of-file indicator. 
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6.4 Merging data files 


If you want to merge the contents of two or more files into a single file, you 
can do this with PIP. Normally these files must be text files. Merging COM 
files produces a non-executible program. 


To merge (or concatenate) files using PIP, the filenames to be combined are 
separated by commas: : 


PIP ALL.TXT=PART1.TXT,PART2.TXT, PART3.TXT 


This assumes that all of the files are contained on the same drive. If the file 
is to be merged into a different USER area, enter: 


PIP ALL.TXT [G3]=PART1.TXT,PART2.TXT, PART3.TXT 


And to assure that the files are verified as they are merged, include the [V] 
option: 


PIP ALL.TXT[G3]=PART1.TXT[V],PART2.TXT[V],PART3.TXT[V] 
If you try to merge non-text files, you may encounter problems. PIP 
understands the <CONTROL> Z character as the end-of-file character. 
Non-text files may contain <CONTROL> Z characters. 
If you use PIP to transfer a CoM file, then a <CONTROL> Z character is 
transferred normally; it is not an end-of-file indicator. Instead, PIP 
continues to copy until the actual end-of-file. 


To copy files that are neither text files nor COM files, use the [0] option 
following the filename: 


PIP ALL.DAT=P1.DAT[O],P2.DAT[O] 
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6.5 Line numbering 


PIP can also insert line numbers into a text file. This feature is often used 
by programmers or writers who want to identify their lines of text by 
number. If you copy a file using the N_ options, a line number is inserted at 
the beginning of each line of text: 
PIP TEXTNR.TXT=TEXT. TXT ([N] 
The text now appears like this: 
1: This is your text 
2: numbered by line. 
3: Practical, isn't it? 
You can also insert a six digit line number by using the N2 option: 
PIP TEXTNR.TXT=TEXT.TXT [NZ] 
The text now appears like this: 
000001 This is your text 
000002 numbered by line using option N2. 
000003 Also practical, isn't it? 


The line numbers are assigned sequentially and the order can't be changed. 


6.6 Converting between uppercase and lowercase 

To convert the text of a file to all uppercase, you can use the [U] option: 
PIP CON:=TEXT.TXT[U] 

To convert the text of a file to all lowercase, you can use the [L] option: 


PIP CON:=TEXT.TXT[L] 
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6.7 Searching for a string 


If you're printing a text file with PIP and the paper in the printer jams up, 
you may not want to print 200 pages again. You can restart the operation 
using the [S] option of PIP. To display the file TEXT . TXT beginning at 
the word hungry, enter: 


PIP CON:=TEXT.TXT[S hungry<CONTROL> Z] 


The search string is ended with <CONTROL> Z. You can also use the [0] 
option to end the transfer when a search string is formed: 


PIP COM:=TEXT.TXT[Q people<CONTROL> Z] 
You can of course combine [S] and [Q] ina single transfer: 


PIP CON:=TEXT.TXT[S hungry<CONTROL>Z Q people<CONTROL>Z] 


If the search string is not contained in the source file, one of the following 
error messages appears: 


ERROR: START NOT FOUND 
(or) 


ERROR: QUIT NOT FOUND 
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6.8 Printing data files 


We already talked about toggling the printer to get hardcopy. By pressing 
<CONTROL> P, screen output is sent to the printer. To print a file you 
could do the following: . 

<CONTROL> P toggle printer on 

TYPE TEXT.TXT list file 

<CONTROL> P toggle printer off 


An alternate way to do this is to use the PIP option to transfer the file to the 
printer. The printer is designated by the LST: device, so you can enter: 


PIP LST:=TEXT.TAT 
Of course, you can also print multiple files one after the other: 
PIP LST:=TEXT1.TXT, TEXT2 . TXT, TEXT3 . TXT 


Other options are available to insert line numbers, set TABs, and eject anew 
page every 60 lines. We'll see these options later. 
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6.9 Automatically backing up data files 


As you use CP/M, you'll find yourself creating and modifying many 
different files. Then, in case one of the files is accidentally (or deliberately) 
destroyed, you will still have a backup copy of your data. 
CP/M has a method to help you organize your backup copies. 
Each file has what is called an archive flag. A file's archive flag indicates if 
a backup has been made using PIP. When a file is created or updated, its 
archive flag is set to 1. When a backup is made, the flag is reset to 0. 
Usually backups are time-consuming, because copies are made of each file. 
You can save time by using the [A] option of PIP, which copies a file 
only if the file is new or is changed—that is, if the file's archive flag is 1. 
To make a backup copy of the new or changed TxT files, enter:: 

PIP B:=A:*.TXT([A] 
This copies any TXT files to the diskette in drive B if the archive flag is 1. 


You'll probably want to insure that the copies are transferred without error, 
sO you can use the [V] option: 


PIP B:=A:*.TXT [AV] 
If you display the directory of the diskette in drive A using: 
DIR [FULL] 


then the keyword arcv appears under the attributes indicating which files 
were backed up. 
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6.10 Overwriting without prompts 


Normally PIP overwrites a file on a destination diskette if the filename iS 
the same as the one that is being transferred. But if the file on the destination 
diskette is protected by the RO attribute (SET command), then the following 


message appears: 
DESTINATION FILE IS R/O, DELETE (Y/N)? 


You can overwrite the file by pressing Y, or abort the operation by pressing 
N. 


To avoid having to respond to this prompt, you can use the [W] option of 
PIP. For example: 


SET TEXT.TXT [RO] 
PIP TEXT. TXT=NEW. TXT [(W] 


will allow the file TEXT . TXT to be overwritten, even though it has been 
previously set to read only. 
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6.11 Copying system data files 


PIP normally cannot copy a file with the SyStem attribute. By using the 
[R] option, PIP is able to find the SYSTEM file. To copy a diskette with 
SYSTEM files enter: 


PIP B:=A:*.COM[R] 


To determine if system files are contained on a diskette, use the DIRSYS 
command. 


6.12 Tidying up the 8th bit 


ASCII characters can be coded in seven bits of an eight-bit byte. The eighth 
bit is unused. . 


Some programs such as WordStar® use the eighth bit for special purposes. 
Other programs require the eighth bit to remain unused—for example, 
MBASIC®, the BASIC interpreter for CP/M. If you use WordStar 
document mode to edit a MBASIC program, the program will not run 
correctly, since WordStar uses the eighth bit. You can fix this problem 
using PIP'’s [Z] option: 


PIP NEWPROG.BAS=BADPROG.BAS [2] 


This "strips" any used eighth bits from the file BADPROG.BAS as it 
transfers the contents to NEWPROG. BAS. 
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6.13 Practical examples 


In this final section of this chapter, we'll cover a few examples using PIP 
in various "real-life" applications. You've gotten to know various PIP 
options and also learned that you can use them together. 
To get hardcopy you can enter: 

PIP LST: TEXT.TXT[NT8P60] 
The file TEXT . TXT is printed to the LST: device. Each line is numbered 
[N], the tabs are set at column 8 [T8], and each page will contain a 
maximum of 60 lines of text [P60]. 
To display the text in lowercase, enter: 

PIP LST: TXT.TXT[NT8P60L] 
Here we've added the [L] option to do this. 
Suppose you want to back up files on a daily basis. To do this you enter: 

PIP A:=B:*.* [WAR] 
The option [WAR] works as follows: the [R] option copies the SYSTEM 
files, the [W] option overwrites any read only files, and the [A] option 
copies only files that have not been previously copied. 
You can create a submit file (let's call it ARCHIVE. SUB) containing the 
above command. A SUBMIT file is a text file containing one or more 
commands. Then we can enter the command: 
SUBMIT ARCHIVE 

This takes the text from the file ARCHIVE.SUB and performs the 
commands as if they were entered at the keyboard. To create 


ARCHIVE. SUB, enter: 


A>PIP <RETURN> 
*ARCHIVE.SUB=CON: <RETURN> 
PIP A:=B:*.*[WAR] <CONTROL> Z 
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Next you can SUBMIT this file. This will transfer the files that have not 
been backed up from the B drive to the A drive. 
You can also enter: 

SUBMIT ARCHIVE [E] 
and the commands contained in the SUBMIT file are echoed to the screen. 
Naturally you can put other commands such as DIR and SHOW in the 
SUBMIT file. This lets you see which files and how many files are copied, 
as well as the amount of space contained on the destination diskette. 
The 128 has several more device designations than other CP/M systems 


have, because of its 40- and 80-character screens. These designations are 
as follow: 


KEYS keyboard of the Commodore 128 
40COL 40 character screen 

80COL 80 character screen 

PRT1 serial printer (device number 4) 
PRT2 serial printer (device number 5) 


The following notations for input and output are available: 


CONIN: KEYS 

CONOUT: 80COL (40COL) 
AUXIN: Null Device 
AUXOUT: Null Device 
LST: PRT1 


Note that the standard printer output is to a serial printer, which has the 
device address 4. 
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6.14 Summary 


¢ PIP is one of the most powerful CP/M utilities 

¢ You can transfer a single file to another diskette 

¢ You can copy an entire diskette onto another 

¢ You can merge several files into one 

¢ You can extract a section of a file 

¢ You can automatically number the lines of a text file 

¢ You can automatically back up altered files 

«You can convert uppercase letters into lowercase letters and vice versa 


¢ You can copy between USER areas 


98 


Chapter 7 


CP/M components 


7.1 CP/M on the C-128 

7.2 System diskette for 1571 

7.3 Virtual disk drive E 

7.4 The COPYSYS command 

7.5 The status line 

7.6 1571 disk formats 

7.7 The keyboard 

7.8 Keyboard values 

7.8.1 Disabling/enabling 80-column color selection 
7.8.2 Changing a key's ASCII value 
7.8.3 Defining the function keys 

7.9 KEYFIG functions and uses 


Abacus Software C-128 CP/M User's Guide 





7.1 CP/M on the C-128 


CP/M 3.0 is supposed to be identical for all computers, yet there are often 
unique features of the hardware and architecture of the machines require 
special adaptations of the CP/M functions. 


One of the most obvious differences between the 128's CP/M 3.0 and 
others is that their system diskette is special: This diskette can be read by 
either the 1541 or 1571 disk drive. One drawback of this arrangement is that 
the 1571 is not able to access both sides of the diskette without the user 
removing it and flipping it over to its other side. COM files are located on 
both sides of the diskette, yet they may be accessed only in the 1571's 
one-sided mode. More about the 1571 next. 


7.2 System diskette for 1571 


To take advantage of the 1571's greater storage capacity you need to doa 
little extra preparation. First of all, you must format a diskette as 
double-sided. Type: 


FORMAT 


The following appears on the screen: 


Please select disk type to format 

C128 double sided 

C128 single sided 

C64 single sided \ 


Use the cursor keys on the upper row of the keyboard to select C128 
double sided and press the <RETURN> key. Then insert a blank 
diskette into the drive. Press the $ key only when you are sure that it is safe 
to format the diskette in the drive. 


After this is done, you will copy both sides of the original system diskette to 
the new system diskette. Place the original with the label "128 CP/M 
SYSTEM DISKETTE" in drive A and type: 


PIPE:=A:*.* if you have one drive 
(or) PIP B:=A:*.* if you have two drives 
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If you are using one drive, you are asked to change diskettes several times. 
Follow these instructions, keeping in mind that the destination diskette E is 
the newly formatted one. 


After the first side of the original has been copied, you must copy the 
second side. To do this, insert the original system diskette into the drive 
with the label facing down and enter: 


PIP A:=E:*.* if you have one drive 
(or) PIP B:=:E:*.* if you have two drives 


After you finish, you will have a double-sided system diskette. Use this 


diskette with your 1571 and take advantage of the greater storage capacity 
and convenience of a double-sided disk. 
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7.3 Virtual disk drive E 


By design, the C-128 allows you to use up to four disk drives. In 128 
mode, these are assigned device numbers 8, 9, 10 and 11. Under CP/M 
these devices have the identifiers A:,B:,C:, and D:, respectively. 


You've already been introduced to drive E in Chapter 3. But what is a 
virtual drive? Virtual refers to something which appears to exist, but really 
doesn't. The fifth drive may be addressed, but doesn't really exist except in 
internal memory. The data on drive E resides in memory until it is copied to 
a physical diskette in drive A. CP/M differentiates between drive A and drive 
E and knows if it is to address the real drive A or pretend to address virtual 
drive E. It alternates between drive A and drive E by prompting you to 
change diskettes when necessary. 


By using the virtual drive, you can use PIP to copy files even though you 
only have a single real drive. If you have two disk drives, you have a great 
advantage over those users with only one. For instance, copying is much 
faster, and you can access much more storage capacity at one time. By all 
means make full use of this second (or even third or fourth) disk drive. But 
even if you have these advantages, sometimes it's faster and easier to use 
the virtual drive. 
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7.4 The COPYSYS command 


With other CP/M computers, the operating system programs are located on 
tracks 0 and 1, and are copied with the COPYSYS command. On the C-128, 
the operating system is contained in the files named CPM+.SyYS and 
CCP .COM. You can copy these to another diskette using PIP.If you run the 
COPYSYS command, you will see that this command is not available for 
the '128. Instead, you should do the following to copy the system programs 
to a new diskette in drive E: 


FORMAT 
PIP E:=A:CPM+.SYS 
PIP E:=A:CCP.COM 


After FORMATing and PIPing the system files, you will be able to start 


(boot) CP/M with the new diskette. Since it doesn't contain any transient 
commands, copy the COM files from the original to the new system diskette. 
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7.5 The status line 


The last line on the screen is called the status line. The information here are 
messages that CP/M displays. For example, when using the virtual drive, 
CP/M displays a prompt on the status line asking you to insert the A diskette 
or E diskette. | 


Disk information is displayed in the lower righthand corner of the screen. 
The format of the information is as follows: 


O Dtt ss 


The symbols used above have the following meanings: 


© = Operation: (R)ead or (W)rite 

D = Drive being accessed (A, B, C, or D) 

tt = two-digit track number / track presently being read or written 
Ss = two-digit sector number / sector presently being read or written 


The display changes as the disk operation changes. 


Track and sector numbers are separated by a space. If the diskette has been 
formatted in the MFM-format (a double-sided disk) and you are accessing 
the second side, the track and sector displays are separated by a dash (-). 


If you do not want to display this disk status, you can turn it off (80-column 
only) by pressing <CONTROL> <RUN/STOP>. The <CONTROL> key 
must be held down while pressing <RUN/STOP>. To reactivate the 
display, simply press the same key combination. 


You cannot display your own messages on the status line. This is reserved 
for use by CP/M. 


You can echo the last command that you manually typed at the keyboard by 


pressing the L (cursor-down) key on the bottom row. The separate cursor 
block on the upper right of the keyboard will be excluded here, because it 
has another important function. For instance, if you have entered the 
DIR*.* command and pressed <RETURN>, you can press the 
cursor-down key and the command will be redisplayed below—but without 
the <RETURN3>. This is so you can make any necessary changes in the 
command before it is executed. 
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7.6 1571 disk formats 


The 1571 disk drive is capable of reading various diskette formats. 


The 1571's controller can be programmed to read and write different 
formats, unlike the earlier 1541 drives. You can use the following diskette 
formats with the 1571 drive: 


Osborne DD (1024 bytes/sector, single sided, 5 sectors/track) 
Epson QX10 (512 bytes/sector, double sided, 10 sectors/track) 
IBM-8 SS (CP/M 86) (512 bytes/sector, single sided, 8 sectors/track) 
IBM-8 DS (CP/M 86) (512 bytes/sector, double sided, 8 sectors/track) 
KayPro II (512 bytes/sector, single sided, 10 sectors/track) 
KayPro IV (512 bytes/sector, double sided, 10 sectors/track) 


Thus six different formats are directly supported. 


As you've probably noticed, the drive motor spins shortly after you insert 
the disk and close the door. The disk drive is attempting to identify the 
format of the disk. To do this, the drive checks bytes per sector, and sectors 
per track. If this isn't sufficient to identify the format, a small box in the 
lower left-hand corner of the screen shows the possible formats. You may 
then select the correct format by scrolling through the list of choices. Use 


the < or — (cursor left and cursor right keys) to view the choices. 


When you have scrolled to the desired format, confirm the selection by 
pressing <RETURN>. If you wish to use that format exclusively, hold the 
<CONTROL> key while pressing <RETURN>. This way CP/M knows 
which format is being used, and will not ask you to enter the correct one 
each time you switch diskettes. 
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7.7 The keyboard 


The 128 keyboard functions differently under CP/M than in 64 or 128 
mode. 


For example,the cursor keys do not work the same as they do when using 
BASIC. Pressing the cursor down key on the bottom row of the keyboard 
redisplays the command last entered. But the cursor down key on the top 
row of the keyboard has no effect. 


You can re-boot the CP/M system from the keyboard by pressing 
<CONTROL> <ENTER>. Note that the <ENTER> key is part of the 
numerical keypad. 


Each key on the 128 may have up to four different values. A key's value 
may be: unshifted, shifted, control, and caps lock. The shifted value is not 
always the same as the caps lock value. When you enter an unshifted value, 
make sure that the caps lock key is in the "up" position. The characters 
appearing on the screen should then be lowercase. The <40/80 DISPLAY> 
key has no effect on the key values. 


A shifted value is produced by holding the <SHIFT> key and pressing the 
desired key. 


A control value is produced by holding the <CONTROL-> and pressing the 
desired key. 


To enter the "simulated" caps lock mode, press the Commodore key (C=). 
In this mode, only letters will be shifted. Numbers and other characters 
remain unshifted in "simulated" caps lock mode. 


Using an 80-column monitor, you can change the background and cursor 
color. To change the cursor color, press a number keys on the top row of 
the keyboard in combination with the <CONTROL> key. The cursor will 
change color correspondingly. To change the background color, press a 
number key on the numerical keypad in combination with the <CONTROL> 
key. These colors correspond to the colors used in BASIC. 
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7.8 Keyboard values 


The 128's keyboard is very flexible under CP/M. You can essentially assign 
a new value to each key. 


We've already noted that CP/M uses the ASCII character set. These 
characters have values from 0 to 127. Any value greater than 128 ($80) in 
hexadecimal has a different use—it may set the colors of the screen display 
or substitute a predefined string of characters. Here's a list of these values: 


80-9F predefined strings 0-15 

AO-AF 80-character foreground colors 
BO-BF  80-character background colors 
CO-CF  40Q-character foreground colors 
DO-DF 40Q-character background colors 
EO-EF  40Q-character border color 
FO-FF special functions 


7.8.1 Disabling/enabling 80 column color selection 


You can change the foreground color on a 80-column color monitor with 
<CONTROL> <top row number> combination. You can also change the 
background color with the <CONTROL> <numerical keypad number> 
combination. When you press one of these key combinations, a value of 
160-167 or 176-183 is produced that changes either the screen's foreground 
or background color. 


To disable this color selection, you can press the following key 
combination: 


<CONTROL> <RSHIFT> <ALT> 
<RSHIFT> is the right <SHIFT> key. You must use the right <SHIFT> 


key and not the left one. All three keys must be pressed simultaneously to 
disable the color selection. 
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After pressing this key combination, you cannot change the screen's 
foreground or background color with <CONTROL> <top row number> or 
<CONTROL> <numerical keypad number>. 


You can re-enable the foreground/background color selection by entering 
the <CONTROL> <RSHIFT> <ALT> combination again. This key 
combination acts as a toggle. Press the combination once and it disables. 
Press the combination again and it enables. 


If you disable the color selection, the <HELP> is also disabled. 


7.8.2 Changing a key's ASCII value 


When you press a key or a combination of keys (such as <SHIFT> <A> or 
<CONTROL> <C>), CP/M encodes the key's physical location on the 
keyboard to a numerical value ranging from 0 to 255 ($00 to $FF 
hexadecimal). 


For example, when you press the space bar, CP/M recognizes that the long 
key on the bottom row of the keyboard was depressed. CP/M associates 
this key with a value of 32 ($20 hexadecimal). 


Under CP/M on the '128, you can change the encoding of each key. Using 
what we'll call the keyboard editor, you can change CP/M so that pressing 
the space bar produces the value normally associated with the letter "A" 
(65=$41). 


To use the keyboard editor, enter: 
<CONTROL> <RSHIFT>< <> 


The key denoted as < <-> is the cursor left key on the top row of the 
keyboard. 


Next press the key whose value you want to change. For example, press the 
space bar. A highlighted area on the status line appears: 
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The value 20 is a hexadecimal number and represents the space bar's current 
value. This value is what we normally expect to see, since a space has an 
ASCII value of 32 ($20 in hexadecimal). To change the space bar so that it 
will produce the value for the letter "A", enter a new value: 41. The 
highlighted area will disappear from the status line. You have now exited 
the keyboard editor. 


Now let's try out the key board to see if the change was effected. Press the 
space bar. The letter A will appear on the screen at the cursor. This isn't a 


very useful change, since you now have no way of entering a space. Enter 
the keyboard editor again and undo the change. Press: 


<CONTROL> <RSHIFT> <¢—> 


Now the current value of the space bar is displayed: 





Change the value back to its original value 20 and the keyboard is back to 
normal. 


As you have noticed, all values are displayed and entered in hexadecimal 
notation. See APPENDIX A for a complete list of the characters and their 
values in hexadecimal notation. 


Changing the space bar to produce the letter "A" wasn't very useful. Let's 
try another example that will be of more use to us. Recall that a key value 
greater than 127 has a different use than the ASCII values. On a 80-column 
color monitor, you can normally change the background to one of eight 
different colors. Actually, it is possible to select from 16 different colors. 
Each different background color is represented by a value from 
$B0 to $BF (or $D0 to $DF for 40-column screens). 


To select the first eight colors, you press <CONTROL> <number>, where 
<number> is a number on the numerical keypad. For example, the key 
combination <CONTROL> <1> produces the value $BO and changes the 
background color to black. But we are limited to eight colors with the 
<CONTROL> key combination. 
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We can use the keyboard editor to be able to select the other eight colors. If 
we decide to use the <SHIFT> <number> key combination, and assign 
these to values between $B8 and $BF, then the other eight background 
colors are available. 


Enter the keyboard editor: 


<CONTROL> <RSHIFT> <¢-> 


Now press <CONTROL> <1>, keeping in mind that <1> is on the 
numerical keypad. The following is displayed: 





Change this key combination's value to B8 . You have now added the 
background color selection for the <SHIFT> <1> key combination. You 
can add the other seven background colors similarly. 


7.8.3 Defining the function keys 


If you press a function key, a text string appears on the screen. By default, 
the function keys are assigned the following string values: 


Fl Fl 

F2 F2 

F3 dir<CR> 

F4 dir 

F5 F5 

F6 F 6 

F7 F7 

F8: 6 Dec 85 (may differ on your system) 


Pressing <F1> produces the value $80, <F2> produces $81, and so on. 
Pressing <HELP> produces $9F. As CP/M recognizes a keyboard value 
from $80 to $9F, it substitutes a string. 
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For example, when you press <HELP>, the value $9F is produced, in 
which CP/M substitutes the text "Help." You can redefine the text 
associated with each of the values $80 to $9F by using the function key 
editor. 


To use the function key editor, enter: 
<CONTROL> <RSHIFT> < -> 


where < —> denotes the cursor right key on the top row of the keyboard. 


A highlighted area appears on the status line of the screen. Now press the 
key <HELP>, or <F1> to <F8>, whichever key you wish to change the 
text of. For this example press the <HELP> key, and the following appears 
on the status line: 





The symbols > and < are the start and end of the text. A block cursor is 
positioned over the first character of the string H. For now, don't press any 
of the keys. We'll first explain explain the purpose of some of the keys. 


Key combination Function 
<CONTROL><RSHIFT> <-> > move cursor right 
<CONTROL> <RSHIFT> < — > move cursor left 
<CONTROL> <RSHIFT><+ > ___sinsert space at cursor 
<CONTROL> <RSHIFT> <— > delete character at cursor 


<CONTROL> <RSHIFT> <RETURN> end function key editor 


To change the text of the <HELP> key to"dir a:", simply type the letters 
and the screen will look like this: 
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If you press <RETURN> without holding <CONTROL> <RSHIFT>, a 
Carriage return is inserted into the text (it appears as a lowercase m). Then 
exit the function key editor with the key combination: 


<CONTROL> <RSHIFT> < RETURN> 


Now every time you press the <HELP> key, you will display the directory 
of the A drive. You'll notice that you can assign text strings to any value 
form $80 to $9F. Therefore you can define up to 32 different text strings. 
To invoke these strings you will have to use the keyboard editor (discussed 
in the previous section) to assign one of these values to the desired key. 


For example, some printers aren't able to print the symbol £. You could 
substitute the string "Pounds sterling" for the symbol. To do this, 
first change the key value of the £ key from its normal value $23 to one in 
the range $80 to $9F. Let's change it to $99. 


Do this by using the keyboard editor: 
<CONTROL> <RSHIFT> < <> 


and pressing the £ key. You'll see the following on the status line: 





Enter the new value 99. Now you can edit the text string that is associated 
with "pseudo function key" £. Press the following: 


<CONTROL> <RSHIFT> < >> 


_ and then press the £ key. You will see: 





Type the words "Pounds sterling" and then press: 


<CONTROL> <RSHIFT> < RETURN> 
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The highlighted area in the status line disappears as it accepts the new text 
string. Now if you press the £ key, the words Pounds sterling 
appear. You've successfully programmed a new function key! 


Here is a complete list of the functions and their hexadecimal codes: 


$80 Fl $90 F117 
$81 F 2 $91 F18 
$82 dir<CR> $92 F19 
$83 dir $93 F20 
$84 F 5 $94 F21 
$85 F 6 $95 F22 
$86 F7 $96 F23 
$87 6 Dec 85 $97 F24 
$88 F9 $98 F25 
$89 F10 $99 F26 
S8A Fil SOA F27 
S8B Screen left S9B F28 
S8C Screen right ‘ S$9C F29 
S$8D Screen left S9D = F30 
S8E Screen right S9E F31 
S8F F16 SOF HELP 


From the table above, it appears that the text strings for codes $8B to $8E or 
omitted. Actually, these codes are used to scroll the 40-column screen 
horizontally. 
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In the following table, the values $FO to $FF are reserved for special 
functions. These special functions, which are defined for the 128's CP/M, 
are as follow: 


SFO turn disk status on/off 
SF1 _ pause/unpause display 
SF2  40-column 

SF3 left screen (40-column) 
SF4 right screen (40-column) 
SF5 MFM unlock 

SFF reboot system 


To invoke code $FO, press <CONTROL> <RUN/STOP3>. This causes the 
disk status line to disappear. 


To invoke code $F1, press the <NO SCROLL> key. Pressing it once 
temporarily halts the display of information on the screen and displays 
PAUSE on the status line. Pressing it a second time reactivates the display. 


To invoke code $FF, press <CONTROL> <ENTER>. This is the 
equivalent to turning the computer off and then on again. 
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7.9 KEYFIG functions and uses 


Both the keyboard editor and function editor described in the previous 
section are resident. You may use either at any time. However, if you 
frequently change key values or "program" the function keys, you'll soon 
realize that these are time-consuming tasks. 


There's another way to change the key values and program the function 
keys—by using the KEYF IG transient command. 


Make sure the system diskette is in the logged drive and enter KEYF IG 
<RETURNS>. The following will appear on the screen: 


C128 SOFT KEYBOARD PROGRAM 
3 Jan 1986 


Welcome to the Commodore C128 Keyboard 
Definition program. Do you want help? 


You should never refuse an offer for help, especially if you are using a 
command for the first time. Enter Y for Yes to display the following menu: 


Help is available on the following topics: 
-->done help<-- 
-->General Usage<-- 
-->Setting up your work file<-- 
-->What to do with your work file<-- 
-->Key values<--— 
-->Selecting a key to edit<-- 
-->Logical/Physical colors<-- 
-->Editing keys<-- 
-->Assigning/Editing strings<--— 
-->Assigning colors<-- 
-->Assigning special functions<-- 
-->Assigning hex values<-- 
-->Finishing up<-- 
-->For experts only<--— 


Use the up and down arrow keys to scroll 


through the menu; type the <RETURN> key 
to select the topic on which you want help. 
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Many of the headings are self-explanatory, but even so you may want to 
read each of them, in order to gain a better understanding of KEYFIG. 
Select the desired function by scrolling up and down with the cursor up and 


cursor down keys (T and J on the top row of the keyboard). 


To confirm the selected function (highlighted), press <RETURN>. The 
option -->For experts only<-- will tell you that the <CONTROL> 
<RSHIFT> combination is considerably faster. Once you have had enough 
help, select -->done help<--, and KEYFIG will continue. 


If you want to make changes in your keyboard layout (i.e., define function 
keys, simulate foreign keyboards, etc.), you'll need a way of Saving these 
definitions, to avoid having to make the changes over and over again. 
KEYFIG can save the changes permanently. After you exit the >Help< 
mode, the following display appears on the screen: 


From which of the following sources of 
key definitions would you like to work? 


Default definitions 

Definitions on the CP/M boot disk 
Current definitions 

(Your previous work file) 


Choose the set of key definitions you want to work with by using the cursor 
keys. The option in parenthesis will not appear if you are booting CP/M for 
the first time. Depending on the option you choose, the system will or will 
not retrieve the new keyboard definition from the diskette. The third line 
indicates which keyboard definitions are being used. 


To find out how easy it is to use KEYF 1G, choose the second option when 
the following menu is displayed: 


Edit a key definition 
Set up logical<-->physical colors 
Exit and save your work file 


If you are using an 80-column color monitor, the pallette of colors are 
displayed. These colors represent logical (key-defined) and physical colors. 
You may rearrange this list of colors by simply entering their 
correspondingly letters. The changes are displayed immediately. 
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To change the key definitions, choose the option Edit a key 
definition.The following menu appears: 


Editing: no key 


This key has the 4 values shown below: 


normal—-— 
CMDR SHFT-— 
SHIFT —- 


CTRL —- 
(done editing-exit and save work file) 


Here too, you select the desired option by using the cursor keys on the top 
row. If a key is pressed, its four values appear on the screen. CMDR SHFT 
on the screen display (<C=> <SHIFT>) is equivalent to <CAPS LOCK>. 
(Remember, the <CAPS LOCK> key is inoperative under CP/M). 


One of the impressive features of KEYF IG is its ability to describe in text 
what it cannot display. For example, it can describe the left-arrow located in 
the upper lefthand corner of the keyboard as LEFT ARROW NEXT TO 1. 
Thus a key like <DELETE>, for which an ASCII code can't be displayed, 
is described in text. For example, the text for the <DELETE> key is 
RUBOUT. If you wish to change one of the four definitions per key, move 
the marker to that option and press <RETURN>. 


ASSIGN a STRING (more than 1 character) 
ASSIGN new (Single) character 

ASSIGN a COLOR 

ASSIGN hex value 

ASSIGN a SPECIAL FUNCTION 

don't modify this key 


KEYF IG allows you to save these modifications. You may save the changes 


on the system diskette or a separate diskette. If the changes are saved on the 
system diskette, they are loaded automatically when CP/M is rebooted. . 
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To save your keyboard changes, select the following options: 


Exit and save your work file 
on CP/M boot disk 


After the changes are saved, KEYF IG will ask: 
Do you want to do anything else [] 
Answer Y or N as appropriate. To exit KEYFIG at any time, you can press 


<CONTROL> C. KEYFIG asks you to confirm this so that you don't exit 
the command accidentally. 


119 





Additional utilities | 


8.1 
8.2 


8.3 
8.4 


Chapter 8 





The assemblers MAC and RMAC 
Using the MAC assembler 
Working with SUBMIT 

The memory layout 


Abacus Software C-128 CP/M User's Guide 





Additional utilities 


In this chapter we'll take a look at several utilities. These utilities are part of 
the CP/M development package available from Digital Research. 


If youre a beginning CP/M user, you might want to skip this chapter. In 
fact, this chapter might be renamed "CP/M for Advanced Programmers". 


The CP/M development package includes an assembler, disassembler, 
monitor, and other utilities for the CP/M machine language programmer. 


We'll take a look at some of these utilities shortly. 
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8.1 The assemblers MAC and RMAC 


MAC and RMAC are both assembler programs. They are successors to the 
original ASM assembler distributed by Digital Research. 


MAC is amacro assembler. RMAC is a variation of MAC that generates 
relocatable object code. Relocatable code is machine code that can be 
executed from any location in the computer's memory. 


The three assemblers do their work in 8080 code. Two LIB files containing 
several macros are included with the development package. 


One LIB file is called 280 .LIB and the other X6502 . LIB. Using these 
LIB files, you can assemble Z-80 mnemonics with MAC and RMAC, 
although most of the opcodes still look like 8080 mnemonics. For example, 
the LD HL, 0 instruction must be coded as LXI H 0. Additional Z-80 
instructions are added to the 8080 instructions—examples are relative 
jumps, the Ix and Iy registers, and the exchange register instructions. 


You can list these mnemonics by entering: 


TYPE Z80.LIB 
You can program in 6502 machine language using the other macro library. 


The development package actually contains two assemblers. Let's look at 
the MAC assembler first. First a little background. The 8080 processor is 
the predecessor to the Z-80 contained in the '128, and in a certain sense is 
its "parent." The Z-80 can execute programs that the 8080 understands, but 
has a larger vocabulary (or instruction set) and different mnemonics. 
Mnemonics are the notations for the machine language instructions used in 
writing assembly language programs. 


As you know, a machine language consists of a line of binary numbers. For 
example, the Z-80 processor understands the instruction $41 and can 
execute it. But it's very difficult for a human to associate this number with 
any particular instruction or function. Mnemonics are used to represent 
these machine codes and make them easier to understand. With the Z-80, 
the mnemonic for the instruction $41 looks like this: 


LD B,C 
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This mnemonic has a specific meaning to the machine language 
programmer. It makes programming much easier, because you don't have 
to keep referring a table to find out what code $41 does. 


But the processor can't do anything with the mnemonic LD B,C. The 
assembler's task is to convert these mnemonics, which humans understand, 
to codes that the computer can understand. The assembler acts as a sort of 
interpreter, translating the human language into machine language. The MAC 
assembler also supports the user in other ways, which we'll mention later. 


We've mentioned that the older 8080 processor is the parent of the Z-80. 
You also know that the Z-80 has more instructions that the 8080. This is 
important to know, since all CP/M programs must be written in 8080 code. 

This is because there are many CP/M computers equipped with the earlier 
8080 processor. Consequently, a Z-80 programmer is limited to those 


commands that the 8080 can understand. This precludes some quite useful 
Z-80 instructions. 


On the Z-80, the code $41 represents the following mnemonic: 
LD B,C 
On the 8080, this same code represents this mnemonic: 
MOV B,C 


Either represents the same operation: transfer the contents of the C-register 
to the B-register. The operations are identical; the notations are different. 
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8.2 Using the MAC assembler 


One of the problems you'll encounter in machine language programming is 

in referencing memory locations when performing instructions like loading 

or saving a register. Another common problem is keeping track of memory 

location jumps. For instance, suppose you write a program that starts at 
memory address $5000, and later want to move it to address $4000. You'd 

have to change all jump addresses (except for the relative jumps) within the 
program. If you insert a new instruction into a program, all of the relative 
jumps and all other jumps are shifted. It would be nerve-wracking to try to 

keep track of all these addresses. 


To make this work easier, the MAC assembler allows us to define /abels. 
Labels are transformed into actual memory addresses during the assembly. 
With labels, it's no longer a problem to insert a new instruction at or to 
move a routine to a different memory location—the assembler does all the 
work for you. 


The MAC and RMAC assemblers allow you do this and much more. The 
" Additional Utilities" diskette contains these programs. Insert it into drive A. 
List the directory: 


A: LIB COM : LINK COM : MAC COM : RMAC COM : SID COM 
A: CBDOS3 SPR : BNKDOS3 SPR : CRESBDOS3 SPR : HEXCOM COM : XREFCOM 
A: CALLVERS ASM : DUMP COM : ZECHOVERS ASM : RANDOM ASM : HISTUTL 
A: TRACE UTL : READ ME 


Notice the file named DUMP . COM. The syntax for this command is: 
DUMP <filename> 


DUMP displays the contents of the specified file in hexadecimal format (hex 
dump). To see a sample DUMP display, enter: 


DUMP DATE.COM 


The file contents of DUMP.COM is displayed on the screen. You can pause 
the scrolling output by pressing <CONTROL> S and start it again with 
<CONTROL> Q. Alternatively, you can use the <NO SCROLL> key, 
which you might find more practical. You can terminate the output by 
pressing <CONTROLS> C. | 7 
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DUMP .ASM is the assembly language source program for the DUMP 
command. You can display the ASCII contents of this file on the screen (or 
printer) if you wish. Enter: 


TYPE DUMP .ASM 


The program header is the Digital Research copyright notice (the original 
developers of the CP/M operating system). 


Here is a small example of what appears on the screen when you DUMP a 
COM file: 


OOAO 00 C9 3A 13 02 FE 80 C2 B3 01 CD CE 01 B7 CA B3 
OOBO 01 37 C9 SF 16 00 3C 32 13 02 21 80 00 19 7E B7 
00CO C9 AF 32 7C 00 11 5C 00 OF OF CD 05 00 C9 ES D5 
0ODO0 C5 11 5C 00 OE 14 CD 05 00 Cl Dl El C9 46 49 4¢C 
OOFO 45 20 44 55 4D 50 20 56 45 52 53 49 4F 4E 20 31 
OOFO 2E 34 24 OD OA 4E 4F 20 49 4E 50 55 54 20 46 49 
0100 4c 45 20 50 52 45 53 45 4E 54 20 4F 4E 20 44 49 


Now here's a short example of an assembler listing: 


updateSclock: 
mov a,c 
cpl 11 ; console status function? 
jnz next ; no, then just exit 
; yes, update the time 
lxi h,0 
dad sp 
shld ret$stack 
1xi sp, local$stack 


This is a good comparison of the assembly language source program (.ASM) 
and the hexadecimal machine language display (. COM). It's obvious that the 
assembly language source is much more readable. You can even insert 
comments into the assembly language source to describe the program. 
These comments start with a semicolon so that the assembler knows it 
should ignore these lines of text. Otherwise the assembler would try to 
assemble them, and cause numerous errors in the process. 


The DUMP . ASM program may appear to be very long, but it's actually quite 
short for an assembly language source code listing. Consider that the 
operating system is written in assembly language—when printed out it can 
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reach a full 2000 pages in length. Even programs like the word processor 
TEXTOMAT can easily reach 400 to 500 pages. 


As you can see, programming in machine language can be a very 
time-consuming process. Our goal here is to assemble a program to 
demonstrate the operation of the assembler. 


Copy DUMP .ASM to your the backup copy of the Additional Utilities 
diskette. Make sure that your diskette is not write-protected, since we have 
to write to the diskette on which the source code is located. You have made 
a backup-copy of your CP/M diskette, haven't you? (If not, do so quickly). 
To assemble this source program, enter: 


MAC DUMP 


Notice that you don't have to specify the filename extension. You don't 
have to type DUMP .ASM, because the assembler automatically appends the 
extension .ASM. The following display appears on the screen: 


CP/M MACRO ASSEM 2.0 
0257 
OO2H USE FACTOR 
END OF ASSEMBLY 
A> 
The assembler quickly creates three files: 


¢ An assembler listing named DUMP . PRN 
e A hexadecimal file called DUMP . HEX 
e A symbol table named DUMP .SYM 
Take a look first at the assembler listing by entering: 
TYPE DUMP .PRN <RETURN> 


Here's an illustration of what should appear on your screen: 
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a a 8 oP Ot 


0112 11F301 #£L&Tl D, OPNMSG 

0115 cD9CO1l CALL ERR 

0118 C35101 =JMP  FINIS ;TO RETURN 
; OPENOK: 


;OPEN OPERATION OK, 
;SET BUFFER INDEX TO END 


011B 3E80 MVI A, 80H 
011D 321302 TA IBP ;SET BUFFER POINTER TO 80H 

;HL CONTAINS NEXT ADDRESS TO PRINT 
0120 210000 - LXI H,0 ;START WITH 0000 


The assembly language program is listed with all of the information added 
by the assembler. The first column lists the address at which the code is 
located—if a label is defined, the first column contains the value of the 
label. The program starts at address $0100 and ends at $0257. Asa 
result we know the meaning of the number the assembler printed (see 
above). Most CP/M programs begin at address $0100. 


After reviewing the assembler listing, or printed out a hardcopy, look at the 
second file created by the assembler. Enter the following: 


TYPE DUMP.HEX <RETURN> 
Her's an illustration of what should appear on your screen: 


:100130004401CD7201CD59010FDA51017CCD8FOI1FF 
:100140007DCD8F01233E20CD650178CD8F01C32366 
:1001500001CD72012A1502F9C9ESDS5SC50EOBCDOSF1 
:1001600000C1D1E1C9ES5DS5C50E025FCD0500C1D101 
>10017000E1C93E0DCD65013E0ACD6501C9E60FFEZ0 
:100180000AD28901C630C38B01C637CD6501C9F5D6 


A set of numbers is displayed. These are the program codes (opcodes). 
Other information is displayed, such as the address to which the code will 
later be moved. This file is already considerably shorter than the 
DUMP .PRN file. There is also a symbol table with the extension .S YM. 


But we still can't execute this machine language program, since it isn't a 
COM file. There is another program called HEXCOM that creates a COM file 
from a HEX file. To do this enter: 


HEXCOM DUMP 
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Notice that an extension is not entered. HEXCOM automatically adds the 
extension .HEX. The screen then displays: 


HEXCOM VERS: 3.00 


FIRST ADDRESS 0100 
LAST ADDRESS 0212 
BYTES READ 0113 

RECORDS WRITTEN 03 


You have just created a COM file, the file DUMP .COM. We can execute 
DUMP . COM by simply entering: 


DUMP DUMP.COM (displays itself) 


Next we'll discuss a few things about the assembler, so that you can use it 
properly. The source programs for the assembler are ASCII text files. Each 
line of text has the following format: 


<line number><label> : <mnemonic><argument> ; <comment> 


The <line number> is optional. It need not be present, as in our example. It 
is ignored by the assembler, and used here only because some text editors 
(such as ED) automatically insert line numbers. The <mnemonic>: is also 
optional, but if used must be placed at this location. The <smnemonic> and 
the <argument> must be included in all assembler source lines, unless the 
line is a line of comments. 


The assembler converts lowercase letters to uppercase before processing 
them. This simplifies programming greatly. The one exception to this rule is 
the letters between quotation marks representing a fixed string—these letters 
are left in lowercase, as in the following instruction: 


DB "File Dump Version 1.4" 


The individual components of an assembler source line are separated by at 
least one space. It is standard practice to begin the line with the </abel> (far 
left) and then use the editor to TAB to the next components. This is not 
required, but it improves the readability of the program. The program listing 
will be in neat columns, like in this example: 
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DISKR: ;READ DISK FILE RECORD 
PUSH H! PUSH D! PUSH B 
LXI D,FCB 
MVI C,READF 
CALL BDOS 
POP B! POP D! POP H 


RET 


The above program segment is from the DUMP program. DISKR is a label, 
and labels are always identified by a colon. Then comes the mnemonic and 
the argument, in that order. 


You also see another feature of the assembler in this short routine. Multiple 
assembler mnemonics may appear on the same line separated by 
exclamation points. 


A semicolon indicates that comments follow. Alternatively, you can define 
an entire line as a comment by beginning that line with an asterisk. You can 
use this feature to give individual routines in the assembly language 
program a header line, like in the following example: 


KKEKKKKKKKKKEKKKEKKKKEKEKKRKKKKKKKEKKKKEKKEKRKKKKKKKKKK 


kkk Read Disk File Record kkk 
KKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKKKKEKEKKKKKKKEKER 


Be sure that any labels you use are not the same as any of the assembler 
mnemonics, such as MVI, MOV, and STA. Refer to Appendix E for a listing 
of 8080 assembler mnemonics. 


With the ASM assembler and many other assemblers, you can refer to the 
current value of the program counter during the assembly process. For 
instance, this is done automatically for program labels, as in the following 
example: 


posit: EQU $ 
Arguments may be composed of various arithmetic operators. For example: 


MVI A,12+2*3 


) | 


mnemonic arguments 
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The arithmetic operators are as follow: 


+X Positive number 

~X Negative number, corresponds to 0-X (always 16 bit!) 
X+Y Addition of two 16-bit values 

X-Y Subtraction of two 16-bit values 

X*Y Product of X*Y 

X/Y Division of the arguments 


X MOD Y Remainder of the division X/Y 


In addition, these two shift operators may be used: 


X SHL Y Shifts the 16-bit value x by Y positions to the left 
Bits shifted out are lost 


X SHR Y Shifts the 16-bit value x by Y positions to the left 
Bits shifted out are lost 


Furthermore, these logical operators are available: 


NOT X Logical negation of the argument X 

X AND Y Logical AND of the arguments X and Y 
X OR Y _ Logical OR of the arguments X and y 
X XOR Y Logical XOR of the arguments X and Y 


You may not see the value of these possibilities at first glance. But you'll 
soon find out they are very useful. For example, if you want to load the 
accumulator with the high-order byte of an address label, you can easily do 
this by shifting this value to the right by 8 bits: 


MVI A,label SHR 8 


To load the lower 8 bits, you must explicitly mask the upper 8 bits. 
Otherwise you would load the 8-bit accumulator with a 16-bit value. 
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Se rs 


You can do this as follows: 


MVI A,label AND OFFH 
In addition, there are the pseudo-opcodes: 
ORG, EOQU, END, DS, DB, DW, SET, IF and ENDIF 
Pseudo-opcodes are directives to the assembler. They're called 
pseudo-opcodes (or simply pseudo-ops) because they are used in the 


assembly language program like the normal opcodes, but are not assembled 
and are not understood by the CPU. 


We won't explain each pseudo-op in detail, but we'll mention the uses and 
function of each. | 
ORG <start address> 
defines the starting address of the program to be 
assembled. ORG should always be the first command 
in a program. 


EQU <value> 


assigns a value to a label. The <value> may be an 
arithmetic expression. 


Example: Diskan: EQU Diskr+055H 


DS reserves a block of memory, usually for data. The 
program counter is incremented by the appropriate 
value. | 


Example: Diskm: DS 100 


In this example 100 bytes are reserved. The starting 
address is Diskm, the ending address is 
Diskm+99. The following instruction starts at 
Diskm+100. | | 
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——— SS a SSS SSS i es SSG SAS 


DB places the individually defined values into memory. 
The individual bytes are separated by commas. 
Strings may also be used. 


Examples: 


Disktxt:DB "Please insert the disk" 
Diskt2: DB 23,32,0,3,122 


DW places 16-bit values (words) into memory. The 
individual 16-bit values are separated by commas. 


Example: Diskadr: DW O3AB9H,labell 


END defines the end of the program to be assembled. For 
special purposes it's also possible to specify a 
Starting address for the execution of the assembled 
program. 


SET Similar to the EQU command, the SET command 
assigns a value to a label. But there is a difference: 
the assignment is permanent using EQU. Labels 
defined with SET may be changed during assembly. 
Labels defined with SET do not appear in the 
lefthand column of the assembler listing. 


Examples: 
Labell: SET Alfa 
Labell: SET Label1+32 


But we still haven't covered all the capabilities of MAC. Like many other 
capable assemblers, ASM can perform conditional assembly. Conditional 
assembly involves assembling a certain group of assembler source lines 
only under specific conditions. It's done with the pseudo opcodes IF and 
ENDIF. 


Suppose that we want to write a program to read two values, and then either 
add them or multiply them together. The algorithm would be the same for 
both operations and both programs. You can write a program that checks a 
flag during assembly to determine if the program should add or multiply: 
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, 
Multi EQU 0 ;Program is to add 
ORG 0100H 


td 
;Read a value 
CALL Read 


tf 
IF Multi 
CALL Multir ;Call multiplication routine 
ENDIF 
IF NOT Multi 
Call Addir ;Call addition routine 
ENDIF 
CALL Output 
END 


This program is initially set to perform addition, since the value of Multi 
is set to 0. To change the program to multiply, set the value for Multi 
equal to NOT 0 in the first line—that's the only change that has to be made. 


When you assembled the DUMP program, three files were created on 
diskette: | 


<filename>.PRN, <filename>.HEX, and <filename>.SYM 


There are options to suppress these files or specify where they are written. 
The five options available are preceded with the $ symbol. The options are: 


Drive for .ASM file (A-O) 

Drive for .HEX file (A-O, Z) 

Drive for .LIB file (A-O) 

Drive for .PRN file (A-O, Z, P, X) 


Mm wwe mM Pp 


Drive for .SYM file (A-O, Z, P, X) 
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The values A through ©O are the drive indicators. With the '128, only A 
though E are possible. 


The value P specifies the printer. 
The value X specifies the screen. 
The value Z suppresses the file. 


To assemble a file DUMP .ASM on the A drive, create a printed program 
listing and write the hex file to the E drive, you would enter: 


MAC DUMP SAA. PP HE 


Notice that the options are separated by a space. 
S$ indicates that options follow 
AA indicates that the ASM file is contained on the A drive. 
PP indicates that the assembler listing is to be sent to the printer. 
HE indicates that the HEX file is to be written to the E drive. 


RMAC is very similar to MAC, except in can produce relocatable code in 
memory. When assembling, a HEX file is not created, but a REL file. The 
REL file is processed by the linker, LINK, unlike a HEX file which is 
processed by HEXCOM. Using RMAC, there are only three options for RMAC: 


R Drive for .REL file (A-O, Z) 
S Drive for .SYM file (A-O, X, P, Z) 
P Drive for .PRN file (A-O, X, P, Z) 


Options are indicated by the $ symbol, and multiple options must be 
separated single spaces. 


Next we'll discuss the disassembler/monitor SID and the use of SUBMIT 
files. 
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8.3 Working with SUBMIT 


When you program in assembly language, you have to repeatedly enter a 
specified sequence of CP/M commands. For example, you will use the ASM 
to assemble the source file, convert the HEX file to a COM file and then test 
the new command. If the name of your program is TESTPGM, then you 
would have to use the following sequence of CP/M commands to 
assemble, convert and execute your program: 


MAC TESTPGM 
HEXCOM TESTPGM 
TESTPGM 


If you use may such sequences of commands when working with CP/M, 
you may want to create a SUBMIT file for each sequence. A SUBMIT file is 
an ordered list of CP/M commands. Later, the user can redirect the input 
from the keyboard to the SUBMIT file. In other words, CP/M takes the 
commands from the SUBMIT file rather than the keyboard. 


For those of you who want to know how this takes place, here's a short 
explanation. When you SUBMIT a file, a temporary file called $$$.SUB. 
is created. It contains a copy of the original SUBMIT file, except that 
symbolic parameters are replaced. The CCP, which handles user input from 
the keyboard, recognizes the presence of and accepts the first line of input 
from the $$$.SUB file. (The first input line is then deleted from the 
$$$ .SUB file). 


Finally, the command contained in the first input line is executed as if it had 
been typed at the keyboard. When the first command line has been 
completely executed, the CCP returns to the $$$. SUB file to get the next 
input line. This is repeated until the $$$ . SUB file is empty, at which time 
the CCP reverts back to the keyboard for subsequent input. 


Let's see a practical example in action. 
When you display a directory of a diskette, you'll notice that no information 
about the remaining space is displayed. You can get this information by 


using the SHOW command. Let's create a SUBMIT file, which we'll call 
DISP, that displays both the directory and the capacity. 
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To create a file called DISP .SUB we use an editor. The CP/M editor is 
called ED. Here's a quick lesson on the use of ED. 


Insert the system diskette into the drive, making sure that the second side is 
face up (unless you've already made a double-sided 1571 system diskette). 
To create the SUBMIT file using ED, type: 


ED DISP.SUB 


The cursor flashes as ED waits for us to input data. ED isn't the easiest 
editor to use. But since we'll only be entering two lines, we won't have to 
suffer very long. Next, enter : to indicate that you'll be inputting 
characters into the file. The display will look like this: 


2 *L 
i 


Enter the following: 
1: show a: <RETURN> 
2: dir <RETURN> 
3: <CONTROL> Z 

Then exit from ED by entering the E command: 


*E <RETURN> 


ED saves the file DISP . SUB to the diskette. You can view the file with 
TYPE DISP . SUB. Let's try out the new SUBMIT file. Enter: 


SUBMIT DISP 
Notice that the extension .SUB is not required. CP/M creates a temporary 
$$$ .SUB file by copying the contents of DISP . SUB, and then erases the 
commands, line by line, from $$$ . SUB as it proceeds to execute each line. 


Hopefully our new SUBMIT file works: it displays the unused space on the 
diskette as well as the directory. | 


Recall our original task. We want to assemble a file, convert it into a COM 
file with HEXCOM, then execute it. The command sequence would like like: 
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MAC <filename> $<options> 
HEXCOM </filename> 
<filename> 


Both <filename> and <options> in this example are parameters, and are 
separated by at least one space. A parameter may be a specific parameter or 
a symbolic parameter. 


A specific parameter is entered as a string of characters, such as DUMP, DIR 
orA:. 


A symbolic parameter is a number preceded by a dollar sign ($). When it is 
encountered in a SUBMIT file, a symbolic parameter is replaced by a value 
entered in the SUBMIT command line. Here's an example. This is the 
contents of a SUBMIT file called ASSEM. COM: 


MAC $1 $$$2 
HEXCOM $1 
$1 $3 


This is the SUBMIT command you enter to invoke the SUBMIT file above: 


SUBMIT ASSEM DUMP AB SHOW.COM 


The following $$$.SUB file is actually created: 


MAC DUMP SAB 
HEXCOM DUMP 
DUMP SHOW.COM 


If we return to the SUBMIT command line, we can see what happened. The 
parameters in the command line are numbered beginning with 1. 


SUBMIT ASSEM DUMP AB SHOW.COM 


you. x 


parameter 1 parameter 2 parameter 3 


As SUBMIT processes a SUBMIT file, it replaces the parameters in the 
SUBMIT file with the corresponding actual parameter from the command 
line. Thus when it encounters $1 in the SUBMIT file, the first actual 
parameter DUMP 1s substituted. When it encounters $$$2 in the SUBMIT 
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file, the second actual parameter $AB is substituted ($$ is the notation to 
insert a single $). And finally, when it encounters $3, the third parameter 
SHOW.COM Is substituted. 


To reiterate about embedded §, let's give another example. Suppose you 
want to enter the following SUBMIT file: 


ERA *.SSS 


For each $, you must substitute $$. Therefore the command looks like this 
in a SUBMIT file: 


ERA *.S$$S$S$S$ 


SUBMIT is a powerful command. Besides redirecting the CCP to input 
commands from a SUBMIT file, you can redirect the input for other 
commands such as ED or PIP. These embedded commands are preceded by 
a less-than character (<). An example using embedded commands: 


PIP 
<E:=A:*.COM 
< 

DIR *.COM 


Notice that the last input line for PIP consists of a < character. This is used 
to exit the transient P IP. This application could also be entered like this: 


PIP e:=a *.COM 


This would copy all the CoM files from drive A to drive E.. It's sufficient to 
put a < character in the first column in order to pass data to COM files. 
Parameters which are otherwise entered on the keyboard come from the file 
$$$ .SUB instead. 


Here we end our discussion SUBMIT files. Try making your own SUBMIT 
file the next time a suitable application crops up. 


We've now discussed the assembler and SUBMIT files. We'll briefly 
mention the SID disassembler. Disassembly is the opposite of assembly: 
the machine opcodes are converted to their mnemonic equivalents. SID is 
not just a disassembler, but a monitor as well. 
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SID, an acronym for Symbolic Interactive Debugger, allows you to test and 
debug programs you have developed. SID supports breakpoints, symbolic 
disassembly, assembly, memory display, memory fill functions, and it 
monitors the program execution. 


To get acomplete list of the SID commands listed on your printer, insert the 
CP/M system diskette and enter: 


<CONTROL> P 
HELP SID COMMANDS <RETURN> 


This will list all of the SID commands to your printer. When the listing is 
finished enter <CONTROL> P again to turn off the printer output. 


If, for example, you want to disassemble the command file HEXCOM. COM, 
you simply enter: 


SID DUMP .COM 


Before you press <RETURN>, you may press <CONTROL> P to send the 
output to the printer as well. 


CP/M SID - Version 3.0 
NEXT MSZE PC END 
0280 0280 0100 CEFF 


Call up the disassembler HEXCOM by entering the command L: 


#L : 
0100 LXI H,0000 
0103 DAD SP 


#L180 
0180 LDAZ B 
0181 JNC 0189 


The D option dumps an area of memory in hexadecimal and ASCII. The G 


option executes the program. The A option lets you enter source code 
directly with a direct assembler. 
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We have already mentioned BDOS, CCP, and BIOS. These terms are 
obviously very important, and you've probably heard or read them before. 
You may have wondered all of them are located in the computer's memory. 
Here's a quick overview: 


CCP The Console Command Processor. This part of CP/M 
controls the input from the keyboard and contains the 
resident commands DIR, ERA, REN, SAVE, TYPE, and 
USER. 


BDOS The Basic Disk Operating System. This part controls the 
transfer of data between the computer and the disk drives. 


BIOS The Basic Input/Output System. The BIOS contains the 
machine-specific code for the CP/M operating system.The 
BIOS and BDOS work closely together. This is why the 
two are often often found under one common name: 
FDOS. 


TPA The Transient Program Area. The TPA is the user program 
area in memory. The programs to be executed, and the data 
to be processed by these programs, are managed in this 
memory. 





System parameter 
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The preceding figure shows the basic memory partitions of CP/M. The user 
area (TPA) starts at address $0100. 


The BDOS contains a collection of subroutines that performs the 
fundamental work with files on disk, and handles other peripheral devices. 
CP/M first appeared in the early 70's, which explains its obsolete routines 
for input and output from punch tape. 


To call a BDOS routine, you must follow the standardized declarations 
described below: 


The BDOS function code for the desired service is passed to the BDOS in 
the C register. Data is passed to the subroutine in the E register for 8-bit 
values, or the DE register pair for 16-bit values. After the registers are 
loaded, you jump to the BDOS at address 5 with a subroutine instruction 
(CALL). 


BDOS determines the address of the desired routine from the C register. 
This ensures that programs written can really run on all computers, because 
they all follow set rules. All hardware-dependent aspects of operation, like 
input and output from the keyboard, are handled by special BDOS routines. 
When a new computer is being developed, only these routines need to be 
rewritten for all CP/M programs to run on the new computer. 


Naturally, two preconditions must be made. The computer must have an 
8080 or 8080-compatible processor, and it must be possible to read the 
existing programs. 


If the second condition is not met, it is still theoretically possible to run 
CP/M programs on the new computer. Transferring existing programs has 
proved to be the smaller of the two problems. This can be done by 

a) programming the controller, or 

b) using a simple communications program to transfer the existing 


programs between the two computers, over a common interface 
such as an RS-232. 
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If the BDOS is to return values to the main program, 8-bit results are 
returned in the accumulator, while 16-bit values are returned in the HL 
register pair. For 16-bit return values, the accumulator contains the 
low-order byte, while the high-order byte is 1n the B register. 


For example, to output a character to the console, you would use BDOS 
routine number 2. Let's print a question mark (using Z-80 mnemonics): 


LD C,2 ; CONSOLE OUTPUT 
LD Bye” ; LOAD QUESTION MARK 
CALL 5 ; JUMP TO BDOS 


If you want to do serious programming in machine language with CP/M, 
we suggest you invest in one of the many special books for CP/M 
programmers. They'll give you more information about the individual 
routines. Here we will only list the BDOS routines with input and output 
parameters for experimentation: 
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Routine name BDOS Required BDOS returns 


Generate warm start 0 

Console input 1 A: input 

Console output 2 E:character 

Read punch tape 3 A: input 

Punch tape 4 BE:character : 

Character to printer 5 E:character 

Direct console input 6 B:255 A:0 

and output E:character A:character 

Read IOBYTE 7 | A: IOBYTE 

Set IOBYTE 8 E: LOBYTE 

Output string 9 DE:=>string 

Input from buffer 10 DE:=>buffer A:character 

Console status 11 A:=0 (no key) 

CP/M version 12 HL: version 

Disk system reset 13 

Set reference drive 14 E:drv number 

Open file 15 DE: info A:255 (error) 

Close file 16 DE: info A:255 (error) 

Find first entry 17 DE:info A:255 (error) 
else: A:character 

Next entry 18 A:255/character 

Delete file 19 DE: info A:255 (error) 

Read sector 20 DE: info A:0 (OK) 

Write sector Zi DE:info A:0 (OK) 

Create file 22 DE: info A:255 (error) 

Rename file 23 DE:info A:255 (error) 

Read active drive 24 HL:drv vector 

Read reference drive 25 A:drv number 

Fix data buffer 26 DE: buffer 

Read allocation table 27 HL: address 

Protect ref. drive 28 

Protected drive 29 HL:drive vector 

Set file options 30 DE: info A:255 (error) 

Read disk parameters 31 HL: address 

Manage user number 32 B:255 A:number 
E:number 

Read sector 33 DE:info A:0 (OK) 

Write sector 34 DE: info A:0 (OK) 

Determine file size 35 DE:info (in buffer) 

Set descriptor 36 DE: info (in buffer) 

Reset drive 37 DE:drv vector A:0 
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This table is intended to show the possibilities and capabilities of the BDOS. 
As already mentioned, more internal knowledge of the routines is required 
for serious BDOS programming. 


The tasks of the BIOS are even more specialized. Like the BDOS, the BIOS 
consists of a list of routines for data input and output. The BIOS also has 
routines which duplicate some of the BDOS routines, such as reading the 
console status. 


The BIOS is largely responsible for the flexibility of CP/M, because CP/M 
programs can use special BIOS routines to perform hardware-dependent 
input and output to the console. 

The BIOS is divided into four areas: 


¢ Interface to the BDOS and CP/M programs (such as SUBMIT 
files) 


¢ Interface to the external storage media (disk drives) 
¢ Input and output via the peripheral addressed by the BDOS 


¢ Buffer for data, which 1s stored and then made available at 
the appropriate time (such as with SUBMIT files). 


The BDOS and the BIOS are relocatable in memory. The routines in the 
BDOS are addressed by passing the function number in the C register—and 
calling the fixed memory address $0005. 


Calling BIOS routines is a little different than calling the BDOS.. There is a 


fixed jump table, but the starting address of this table can be moved. First 
let's take a look at the jump table: 
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OO+offset JMP BOOT ;Cold start 
O3+offset JMP WBOOT ;Warm start 
O6+offset JMP CONST ,Read console status 
O9+offset JMP CONIN ;Console input 
OC+offset JMP CONOUT ,Console output 
OF+toffset JMP LIST ,;Output to printer 
12+offset JMP PUNCH ;Paper tape puncher 
15+offset JMP READER ;Paper tape reader 
18+offset JMP HOME ;Head to track 0 
1B+offset JMP SELDSK ;Select drive 
lEt+offset JMP SETTRK ,set track 

21l+offset JMP SETSEC ;Select sector 
24+offset JMP SETDMA ;Sselect data buffer 
2Z7+offset JMP READ ;Read sector 
2At+offset JMP WRITE ;Write sector 
2D+offset JMP LISTS ;Read printer status 


30+offset JMP SECTRAN; ;Translate sector # 


The offset stands for the starting address in memory, which we'll soon 
discuss in more detail. If one of the functions is not required, such as the 


two routines for the punch tape, the corresponding memory addresses are 
filled with: 


RET ! NOP ! NOP 


This is used so the memory behind these routines is not moved. J umping to 
this routine would cause an immediate return to the user (with no BIOS 
service having been performed). 


To determine the BIOS starting address (the offset), we must know that 
address 0 of the base page of the system contains a jump to the warm start 
vector (the second vector in the table). This makes it easy to find the starting 
address. First boot up the CP/M system , then load the disassembler: 

SID 
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To disassemble (List) the memory area at address 0, we enter: 
LOOQO 


SID's displays the following: 


0000 JMP F403 
0003 RST 0O7 


0004 NOP 
0005 JMP D300 
0008 NOP (etc.) 


What interests us is the first line—a jump is made to address $F403. This 
means the BIOS jump table begins at address $F403. To jump to one of the 
vectors, we calculate the jump address by entering: 


Address:=jump number * 3 + $F403 


As with BDOS routines, you can pass parameters to the BIOS routines or 
receive results from them. If values are to be passed to the BIOS routines, 
8-bit values are passed in the C register, while 16-bit values are passed in 
the BC register pair. Here you see a difference from the BDOS routines. 
They expect the parameter in the E register or the DE register pair. Those 
parameters that the BIOS routines return to the main program are returned 
like the BDOS routines: with 8-bit values in the accumulator. All 16-bit 
values are returned in the HL register pair. Since the BIOS routines are 
accessed via vectors in RAM, they can be changed. This allows you to write 
your own routines that can then return to the original program. 


There are a few additional features of the base page of the system (address 
$0000 to $0100). You just disassembled the area from $0000 to $0016 with 
the command LO. Several additional JMP instructions are found here. 
Especially important is the jump instruction at address 5. This is the address 
of the BDOS vector handler. Note that the BDOS routines for the '128 are 
located at $D300. The JMP instruction at $0005 tells us this. 


Let's take a closer look at this memory area: 


LD300 
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At $D300 is another JMP instruction, this time to $D9A4. 


This concludes our introduction to the important programs and utilities in 
the Additional Utilities package. You should now be familiar with these 
additional programs. Whether they are valuable to you or not is something 
which you alone will decide. 
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The Z-80 ROM listing 


The '128's ROMs contain parts of the Z-80 code and are listed in the book 
Commodore128 Internals. In all, 4K of memory, an area physically located 
in the address range $D000 to $DFFF, are contained in the ROM. 


When the Z-80 processor is activated and the Z-80 addresses memory in the 
range $D000 to $DFFF, the program codes located in the ROM at $D000 to 
$DFFF are actually addressed. The MMU (Memory Management Unit) is 
responsible for redirecting these addresses transparently to the user. 


When the '128 is turned off and on, or a RESET is performed, the Z-80 is 
enabled briefly. The '128 makes the necessary preparations for a possible 
CP/M start; you know that the C-128 automatically boots and starts if a 
CP/M diskette is found in the drive on RESET. When the Z-80 is finished 
with its preparations the 8502 is switched back on. This then continues at 
exactly the place it was at when it was switched off—the place where the 
Z-80 was first switched on. This may sound complicated, but it's really not. 


If you want to program using the Z-80, you will need to know what the 
Z-80 ROM contains. Furthermore, you will have to know how to program 
the Z-80 in the Commodore 128, because there are some characteristics 
which might lead to problems. 


For example, if you want to address the area $D000 to $DFFF, that is, a 
component like the VIC, VDC, SID, etc., you can't do so with the "normal" 
addressing commands. The instructions IN and OUT must be used to access 
these "ports.". To turn on the 8502, for example, the following instructions 
are necessary: 


LD BC,$D505 ;Address Mode Configuration Register 
LD A,S$B1 ;Code to turn the 8502 on 
OUT (C),A ;Corresponds to LD (BC),A 


Correspondingly, you must use the IN instruction to read from memory 
locations. The address must always be in the BC register pair. 


By carefully studying the ROM listings, you'll discover that it also contains 
8502 code sequences. Enabling the processors, for example, must be given 
in both Z-80 and 8502 mnemonics, or it will not work. In addition, the 
Switch must be made in a common memory area or the computer will crash 
after the Z-80 is turned on. 
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What functions does the Z-80 ROM perform? 


It loads all of the necessary CP/M resident operating system routines. All 
screen handlers are contained in the ROMs, both for the 40-column and 
80-column screens. Both the BIOS and BDOS access these ROM routines. 
All system messages during boot are issued by the ROM routines. Not all of 
the CP/M operating system is handled by the ROM; only extremely 
system-specific routines are found here. 


Loading programs from diskette is performed by the 8502. Here the Z-80 
re-enables the 8502, which then turns the Z-80 on after it has finished 
reading the data from diskette. In this way, the Z-80 can use the existing 
Kernal routines of the 8502. 


Before taking a closer look at the Z-80 ROMs, there are a few things you 
should know. When the Z-80 is activated, several components are 
"rearranged." 


The memory range $D000 to $DFFF is remapped to $0000. To address the 
logical range $D000 to $DFFF you must use IN (X) and OUT (X). 


The screen memory and character generator are also relocated. The screen 
memory (video RAM) is moved to $2C00. The character generator 1S 
moved to $D100. The color memory remains at {{ $Dxxx}} since it cannot 
be moved. | 


Besides the 40-column and 80-column screens there is a third screen. This 
third screen is used to simulate the 80-column screen. It is located at $1400 
and its color RAM at $1C00. We advise you not to use this area, since it 
will be overwritten sooner or later. 


Here is a short listing of the important addresses: 
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$2400 
$2402 


$2404+ 
S2406+ 


$2408 


$2409+ 


$240B 
$240C 
$240D 
S240E 
S240F 
$2410 
$2411 
$2413 
$2414 
$2415 
$2416 
$2417 
SFDO1 
SFD03 
SFD04 
SFDO5 
SFD06 
SFD08 
SFDOD 
SFD10 
SFD11 
SFD12 
SFD13 
SFD14 
SFD15 
SFD18 
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Misc temporary storage 

Column for the 80-column simulation 
Mask for text output 

Address cursor 40-column screen 
Lines per screen (default 24) 
Cursor address + $1400 for 80-column simulation 
Cursor column (40 column) 

Cursor line (40 column) 

Character color 

Background color 

Border color 

Fill char (either $00 or $80) for reverse space 
Cursor address 

Cursor column 

Cursor line 

Attribute 

Background color 80 column screen 
Foreground color 80 column screen 
Flag for set vectors yes/no 

Track to read 

Sector to read 

Number of blocks to be loaded yet 
Error flag ($00, SOD, SFF) 
Logical filenumber 

Pointer to conversion table 
Attack/decay 

Volume 

Frequency (hi) 

Sustain/release 

Turn sound off 

Turn sound on 

Base address of block to load 


+ The addresses marked with "+" are to be interpreted as 16-bit values. 
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The CP/M boot sector is identified as such by the three letters CBM followed 
by five bytes containing zero. The program looks like this: 


SEL 

JSR $SFF84 
LDA #$3E 

STA SFFO0 
LDA #$C3 

STA SFFEE 
LDA #508 

STA SFFEF 
LDA #500 

STA SFFFO 
JMP SFFDO 


Disable interrupts 
LOINIT 

Define 

Configuration byte 
Code for JP under Z-80 
Store code 

Low byte is $08 

Store 

High byte is $00 
Store; corresponds to RST $08 
Turn Z-80 on 


This is all that the boot sector does. Everything else is performed by the 


Z-80 ROM. 


Memory areas which are copied are specified with two addresses. First the 
physical/logical address and then the destination address. Relative jumps 
refer to their intended memory environment. 


Now to the ROM listing: 
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KAKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


0000: 


0002: 
0005: 


KAEKKKEKKKKKKKEKKKKEKKEKKEKKKKEKKKKKKEKK 


0008: 
OOOB: 
OO0O0D: 


KKEEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


0010: 
0011: 


0012: 
0015: 
0016: 
0017: 


KKAEKKKKKKKKEKKKKKKKKKKKKKKKKKKKEKK 


0018: 
0019: 
001A: 
0O01D: 
OO1E: 
OO1F: 


KKEKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKEKK 


0020: 
0023: 
0024: 
0026: 
0027: 


3E 3E 


32 00 FF 


C3 3B 00 


31 77 3c 


3E 3F 
C3 8C 01 


El 
6E 


C3 20 00 
00 
00 
00 


El 
6E 
C3 28 00 
00 
00 
00 


3A OF FD 
A7 

28 02 

2C 

2C 


LD 


LD 
JP 


LD 
LD 
JP 


POP 
LD 


JP 

NOP 
NOP 
NOP 


POP 
LD 
JP 
NOP 
NOP 
NOP 


LD 
AND 
JR 
INC 


A, $3E 


(SFF00),A 


$003B 


SP,$3C77 
A, $3F 
$018c 


HL 
L, (HL) 


$0020 


HL 
L, (HL) 
$0028 


A, (SFDOF) 
A 
Z,30028 
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RST 00 (cold start) 


configuration byte 
(RAM, I/O) 

into config. register 
cold start rest 


RST 08; turn Z-80 on again 


SP initialization 
configuration byte 
RST-08—-Routine's rest 


RST 10 


Stack's return address 
retrieve following byte 
as offset 

Start RST-20-Routine 
Fill bytes 


RST 18 


Stack's return address 
Lo-Byte of return address 
start RST-28-Routine 

Fill bytes 


RST 20 


Set Flags 

Return on nullflag 
otherwise increment the 
return pointer to 2 
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eee SS nn 


KAKKKKKKKKKKKKKKKKKKKHAKAKKKKKKKKEK RST 285 retrieve 

return address 

from table 
0028: 26 01 LD H, $01 Hi-Byte of table is l 
OO2A: TE LD A, (HL) offset 
002B: 23 INC HL pointer now to Hi-Byte 
002C: 66 LD H, (HL) retrieve also Hi-Byte 
002D: 6F LD L,A Lo-Byte to L 
OO02E: E9 JP (HL) And return indirectly 
O0OO02F: 00 NOP Fill byte 


KKK KKKKKKKKKKKKKAKKAKEKKEKKKKKKKEKKK RST 30; Dummy; 


construction data 


0030: 30 35 2F 31 32 2F 38 35 =. ASC - "05/12/85" 
=June 12, 1985 


KKKKKKKKKKEKKKEKKKKKEKKKKKRKKKAKKKEKKEKK RST 38 


0038: C3 FD FD JP SFDFD Continue RST 38 on $FDFD 


ARKKKKKKKKKKKKKEKKKKKKKKAKKKKKKKARAKKKK RST 0 Contn'd 


003B: 01 2F DO LD BC,$D02F Register 47 of VICchip 


(Keyboard) 
003E: 11 FC FF LD DE,S$FFFC write S$FF to the keyboard 
0041: ED 51 OUT (C),D no extension keys 
0043: 03 INC BC Register 48=clock register 
0044: ED 59 OUT (C),E set SFC to -> 1 MHz-Mode 
0046: 01 05 DS LD BC,$D505 Mode configurtion Register 
0049: 3E BO LD A, $BO /EXROM and /GAME test, 
004B: ED 79 OUT (C),A and turn on 128-Mode 
004D: ED 78 IN A, (C) Mode configurtion Register 
O0O4F: 2F CPL read out again and negate 
0050: E6 30 AND $30 /EXROM oder GAME set? 
0052: 28 05 JR Z,$0059 No, then no carriage ret 
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KKEKEKKKKKKKKKEKKKKKKKKKKKKKKKRKKKK 


0054: 
0056: 
0058: 
0059: 
005C: 
O05E: 
0060: 
0061: 
0063: 


0065: 
0066: 
0068: 
0069: 
006A: 
O06C: 
0OO06D: 
OO6E: 
0070: 
0072: 
0073: 
0075: 
0077: 


OO7A: 
0O07C: 
OO7F: 
0082: 
0084: 
0085: 
0087: 
0088: 


0089: 
OO8A: 
008C: 
OO8F: 
0092: 
0095: 


3E 
ED 
C7 
01 
3E 
ED 
OD 
ED 
OE 


AF 
ED 
OD 
3D 
ED 
OD 
OD 
3E 
ED 
03 
ED 
B6 
O01 


28 
21 
O01 
16 
TE 
ED 
2B 
OD 


15 
20 
21 
11 
O01 
ED 


Fl 
79 


OF 
08 
79 


719 


03 


719 


719 


7F 


79 


78 


20 


05 


D8 


B4 
OA 


‘0B 


719 


F8 
1A 
00 
08 
BO 


DC 


D5 


OF 
D5 


OD 
11 
00 


A, $F1 
(C),A 
$00 

BC, SDCOF 
A, $08 
(C),A 

Cc 

(C),A 
C,$03 


A 
(C),A 

Cc 

A 

(C),A 

Cc 

Cc 

A, $7F 
(C),A 
BC 

A, (C) 
$20 

BC, $D505 


Z,$0054 
HL, $OFB4 
BC, SD50A 
D,$0B 

A, (HL) 
(C),A 

HL 

Cc 


D 

NZ, $0084 
HL, $OD1A 
DE, $1100 
BC, $0008 
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turn on 64-Mode and 
turn control 
over to cartridge 


turn on 8502 and select 
the 64-mode 

and carry out cold start 
CRB-Register in CIA 1 
select and then 

stop Timer B and 

Timer A of 


CIA 1 

DDRB-data direction 
register 

for Port B:set all bits 
forinput 


set pointer to DDRA and 
all bits here to 

output 

After decrementing 3 times 
show BC on Port A 

Port A with $7F (See also 
keyboard matrix) describe 
pointer to Port B (input) 
and read out 
Commodore-key masking 
pointer for 
Mode-config.-Reg. 

was hit-> 64er-Mode 

Now set the Register of 
the MMU with the values 
from SOFAA 

Note, that all 

ll Registers of MMU 

from behind with values 
will be described 

from SOFB4 

downward! 

Loop end 

Copy the area from S$OD1A 
to $1100 

Eight Bytes are to be 
copied (8502-Code!) 
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0097: 
OO9A: 
O09D: 
OOA0: 
O0A2: 
OOADS: 
OOA8: 
OOAB: 
OOAE: 


OOB1: 


21 
11 
01 
ED 
21 
22 
22 
22 
22 


C3 


E5 
DO 
1F 
BO 
00 
FA 
FC 
FE 
DD 


E0 


OE 
FF 
00 


11 
FF 
FF 
FE 
FF 


FF 


LD 
LD 
LD 
LDIR 
LD 
LD 
LD 
LD 
LD 


JP 


HL, SOEE5 
DE, $FFDO 
BC, SOO1F 


HL, $1100 

(SFFFA) , HL 
(SFFFC) ,HL 
(SFFFE) , HL 
(SFFDD) , HL 


SFFEO 


KKEKKKKEKKKKKEKKKKKKKEKEKKKKKEKEKKKKKKE 


O0B4: 
OOB7: 
OOBA: 


OOBD: 
00CO0: 
00C1: 
00C4: 
00C7: 
00C8: 
OOCB: 
OOCE: 
OOCE: 
OODO: 
00D2: 


CD 
3A 
22 


11 
F5 
CD 
cc 
Fl 
2A 
11 
19 
3D 
20 
C9 


6D 
06 
18 
ED 


D3 
FA 


18 
20 


E8 


03 
3C 
FD 


00 


00 
02 


FD 
00 


CALL 
LD 
LD 


$036D 
A, ($3C06) 
(SFD18) ,H 


DE, SO00E D 
AF 

$00D3 
Z,S502FA 
AF 

HL, (SFD18 


DE, $0020 


HL, DE 
A 
NZ, SOOBA 


KKEKKKKKKKKEKKKEKKEKKKKKEKKKEEKRKKKEKKKK 


O00D3: 
0O0D5: 


O0D6: 


O0OD7: 
O00D9: 


QOODA: 


06 
EB 


1A 


6 
BE 


CO 


0C 


TF 


LD 
EX 


B, $0C 
DE, HL 


A, (DE) 


STF 
(HL) 


NZ 


160 


Also copy the area 
from S$OEE5 on until Common 
Area from SFFDO 
31 Bytes are to be copied 
$1100 as return vector 
copy return vector in 
all 4 addresses, 
under other 
also on $FFDD 
(freshly copied) 
and return in Z-80-part 


Load Block 

get block number 
Destination address of 
loaded block 


Save block number 

compare (HL) with (DE) 
If ok, then call 

get block number back 

Get load address 

32 as Offset 

add to each other 
Decrement block counter 
still not done, then loop 
End of the subroutine 


compare (HL) with (DE) 


12 Bytes to be compared 
Exchange the two 

compared registers 

Load the first value 

in accumulator 

and erase the 8th Bit 
compare with (HL) lead 
through 

and break off if different 
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OODB: 23 INC HL otherwise increment 
both addresses 

0O0DC: 13 INC DE by one 

OODD: 10 F7 DJNZ $00D6 and loop 

OODF: 3A 06 3C LD A, ($3C06) Get block number 

OOE2: FE 40 CP $40 64 Blocks zu load? 

O0OBE4: 1A LD A, (DE) Get block # from table 

OOE5: 20 01 JR NZ,SOOE8 $3C06 is smaller than 64 

OOE7: 1F RRA otherwise double accu 

OOE8: 32 35 3C LD ($3C35), and note 

OOEB: AF XOR A Erase accu and Flags 

OOEC: C9 RET Routine's end 


KREEKKKKKEKKKEKKKKEKKKKKEKKKKKEKKKKKEKEK Text 


OOED: 00 NOP 
OOEE: 43 50 4D 2B 20 20 20 20. "CPM+" 
OOF6: 53 59 53 00 "SYS" <End> 


KKEKEKKEKEKKEKKKEKKEKKKEKKKEKKEKKKKKKRKEKKREERE Compare HL with DE 


OOFA: 7C LD A,H Hi-Byte of HL 
OOFB: BA CP D compare with D 
OOFC: CO RET NZ and end, when different 
OOFD: 7D LD A, L otherwise compare 
OOFE: BB CP E the Lo-Bytes from 
HL and DE 
OOFF: C9 RET and return with Flags 


KKEKEKKKKKKKKKKKKEKKEKKKEKKEKEKEEKKKKKKKK return table for RST 28 


0100: 84 06 -Word $0684 64 Return addresses 
0102: 6E 09 -Word S$096E 
0104: AB 06 .Word SQ6AB 
0106: BC 09 -Word $09BC 
0108: C2 06 .Word $06C2 
010A: DD 09 .Word $09DD 
010C: D1 06 .Word $06D1 
O10E: Fl 09 Word SO9F1 
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0110: 
0112: 
0114: 


0116: 


0118: 
O11A: 


011C: 
O11E: 
0120: 
0122: 
0124: 
0126: 
0128: 
012A: 
012C: 
012E: 
0130: 
0132: 
0134: 
0136: 
0138: 
013A: 
013C: 
0O13E: 
0140: 
0142: 
0144: 
0146: 
0148: 
014A: 
014C: 
014E: 
0150: 
0152: 
0154: 
0156: 
0158: 
O15A: 
015c: 
O15E: 


06 
OA 
06 


OA 


06 
OA 


07 
OA 
07 
OA 
07 
OA 
07 


OA 


07 
OA 
08 
OB 
07 
OB 
07 
OB 
09 
09 
09 
09 
07 
OB 
00 
00 
00 
00 
03 
04 
OC 
00 
00 
00 
00 
00 


-Word 
.Word 
-Word 


.Word 


.Word 
.Word 


.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
Word 
Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
-.Word 
.Word 
.Word 
.Word 
-.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
-.Word 


$06DD 
$0A31 
SO6E8 


SOA3C 


SO06F1 
S0A45 


SO77A 
S0A48 
$0780 
$OA62 
$0791 
SOA8E 
$07CA 
SOABA 
$07DC 
SOADF 
S$081E 
$0B2D 
$071B 
$OB7B 
$0710 
$O0B62 
$091C 
$0995 
$0927 
$09A2 
$074E 
SOBAE 
SOO0EB 
SOOEB 
SOOEB 
SOOEB 
$03E3 
$046B 
SOCFA 
SOOEB 
SOOEB 
SOOEB 
SOOEB 
SOOEB 
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0160: 
0162: 
0164: 
0166: 
0168: 
O16A: 
016C: 
O16E: 
0170: 
0172: 
0174: 
0176: 
0178: 
O17A: 
0O17C: 
O17E: 
0780: 
0182: 
0183: 


KKEKKKKKKKKKKKEKKEKKKKRKKEKEKKRKEKKKKKKK 


0186: 


KKEKEKKEKKKKKKKKKKKKKKKKEKEKKKEKKKKKKKK 


0189: 


KKEKEKKKKKKKKKKEKKKKKKKKKKKKEKRKKKEKEE 


018C: 
O18F: 
0192: 
0195: 
0198: 


3C 
4A 
CF 
OC 
26 
32 
2C 
EB 
71F 
C2 
C7 
EB4 
EB 
3D 
AE 
60 
C3 
09 
C3 


C3 


C3 


32 
21 
11 
01 
75 


0C 
OC 
OB 
OC 
05 
05 
05 
00 
0C 
OC 


0c 


0C 
00 
08 
08 
06 
OA 


33 09 


53 09 


45 09 


00 FF 
00 30 
01 30 
FF CE 


ADD 
JP 


JP 


JP 


LD 
LD 
LD 
LD 
LD 


.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
.Word 
Word 
Word 
.Word 
.Word 
.Word 
.Word 
.Word 
-.Word 
.Word 
.Word 
HL, BC 


$0C3C 
SOC4A 
SOBCF 
SOC0C 
$0526 
$0532 
$052C 
SOOEB 
SOCT7F 
$0CC2 
$O0CC7. 
SOCE4 
SOOEB 
$083D 
SO8AE 
$0660 
SOAC3 


$0933 


$0953 


$0945 


(SFFO0),A 
HL, 
DE, 
BC, 


$3000 
$3001 
SCEFF 


(HL), L 


163 


C-128 CP/M User's Guide 





Add BC as Offset 
Get A:attribute, 
(HL) in VDC 


B:char on 


HL as Update address in 
VDC 


HL as Update address 
in VDC 


wait for VDC-Status and 
choose register <accu> 


wait for VDC-Status and 
choose <accu> 


RST 8 Contn'd 


accu into config. byte 
The areas 

$3000 to S$FEFF 

will be filled with 
the value $00 
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0199: 
O19B: 
O19E: 
O1A1: 
O1A4: 
O1A6: 
O1A9: 
O1AC: 
O1AF: 
01B1: 
01B3: 
0O1B6: 
O1B9: 
01BC: 


O1BF: 
01Cl1: 
01C2: 
01C4: 
01C5: 
01C6: 
01C7: 
01C9: 
01CC: 
O1CF: 
01D2: 
01D3: 
01D5: 
01D7: 
O1DA: 
01DC: 


O1DE: 
O1E0: 
O1E3: 
QO1E5: 
O1E8: 


O1EB: 


O1ED: 


ED 
21 
11 
01 
ED 
21 
11 
01 
ED 
3E 
32 
CD 
21 
O01 


16 
7E 
ED 
2B 
OD 
15 
20 
21 
11 
O01 
75 
ED 
3E 
CD 
3E 
ED 


3E 
32 
3E 
32 
CD 


3E 


32 


BO 
22 
00 
C3 
BO 
E5 
DO 
1F 
BO 
C9 
BE 
E0 
B4 
OA 


OB 


719 


F8 
00 
O01 
FF 


BO 
1A 
45 
90 
719 


83 


15 


OE 


OD 


BD 
19 


08 


OD 
30 
01 


OE 
FF 
00 


FF 
FE 
OF 
D5 


10 
10 
1F 


09 


24 


24 
05 


24 


LDIR 
LD 
LD 
LD 
LDIR 
LD 
LD 
LD 
LDIR 
LD 
LD 
CALL 
LD 
LD 


LD 
LD 
OUT 
DEC 
DEC 
DEC 
JR 
LD 
LD 
LD 
LD 
LDIR 
LD 
CALL 
LD 
OUT 


LD 
LD 
LD 
LD 
CALL 
LD 


LD 


HL, $0D22 
DE, $3000 
BC, $01C3 


HL, $0EE5 
DE, SFFDO 
BC, $001F 


A,$C9 


(SFFEE) ,A 


SF FEO 
HL, SOFB4 
BC, SD50A 


D,$0B 

A, (HL) 
(C),A 
HL 

Cc 

D 
NZ,$01C1 
HL, $1000 
DE, $1001 
BC, $1FFF 
(HL) ,L 


A,S1A 
$0945 
A,$90 
(C),A 


A, $83 


($2415),A 


A, S0E 


($240D),A 


$O05BD 
A,$19 


($2408),A lines 
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The area from $0D22 
will be copied to $3000 
Here it works with 
8502-Code! 

Area down 

SOEE5 in Common Area 
Copy from $SFFDO 

31 Bytes 

Code for RETurn 

Set RST 8 with RET 

Turn on 8502,then continue 
The MMU-Register 

will be filled with the 
table 

from SOFAA 

S.O. 


Ox 
Or 

End of the loop 

Fill the area 


AnD DN 
oO 


$1000 to S$2FFF 
with the value 
$00 
S.O. 


Register 26 (color) of VDC 
choose and then front/ 
Set Background color 
on VDC to $90 

(light red Cursor) 
Define light blue 

and alternate 

har set as attributes 
(VDC) 

Define Char color for 
ViICc-Chip 


Prepare VDC-char set 
The screen is defined 
with 24 

(DEVICE) 
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O1F0: 
O1F3: 
O1F4: 
O1F5: 
O1FD: 
0205: 
0208: 
O20B: 


O20D: 
O20F: 


0212: 
0215: 
0218: 
0O21B: 
O21E: 
0221: 
0224: 
0225: 
0226: 
0229: 
022C: 
O22F: 
0232: 
0235: 
0238: 
O023B: 
023D: 
0240: 


0243: 
0246: 
0249: 
024C: 
O24F: 
0252: 
0254: 
025C: 
0260: 
0263: 
0266: 


CD 
FF 
81 
42 
43 
53 
01 
3E 


ED 


CD 


C2 
21 
22 
CD 
CD 
2A 
7C 
B5 
CA 
21 
22 
CD 
21 
11 
O01 
ED 
CD 
8A 


21 
CD 
21 
22 
CD 
83 
44 
4c 
2A 
22 
21 


26 


OA 
4F 
50 
00 
18 
B6 


719 
D2 


FF 
B2 
02 
B4 
B4 
09 


FF 
09 
02 
6D 
00 
29 
0c 
BO 
26 


80 
34 
00 
04 
26 


41 
45 
33 
09 
32 


05 


DO 


02 


04 
OF 
3C 
00 
00 
3C 


04 
3C 
3C 
03 
34 
3C 
00 


05 


34 
05 
35 
3C 
05 


54 


CALL $0526 Output the following text 
-Byte SFF erase screen (SFF) 
-Byte $81,S0A line 1, column 10 
4F 54 49 4E 47 20 BOOTING 
2F 4D 20 50 4¢C 55 CP/M PLUS 
US<End> 
LD BC,$D018 Basis address of Video-RAM 
LD A, $B6 B->10-13 Video-RAM, 
6->11-13 
OUT (C),A CHARROM; Videoram from 
$2C00 
CALL $02D2 Boot sector check and 
retrieve 
JP NZ,S$O4FF Output evtl. errors 
LD HL,SOFB2 Mark table beginning 
LD ($3C02),H in $3C02 
CALL $00B4 Load first part 
CALL S$00B4 Load second part 
LD HL, ($3C09 Retrieve value 
LD A,H Set the zero flag 
OR L if the 16-bit value is 0 
JP Z, SO4FF and return if yes 
LD HL,$3C09 Mark new table beginning 
LD ($3C02) ,HL 
CALL $036D Load dat 
LD HL,$3400 . Copy 12 Bytes 
LD DE,$3C29 from $3400 
LD BC,$000C to $3C29 
LDIR 
CALL $0526 Output blank line 
-Byte $8A,$00,$00 line 10, column 0 and 
<End> 
LD HL,$3480 pointer to output text 
CALL $0534 and output Text from (HL) 
LD HL,$3500 Note pointer $3500 
LD ($3C04) , HL 
CALL $0526 Ouput the following text 
-Byte $83,$0C line 3, column 12 
41 20 54 41 42 DATA TAB 
LES<End> 


53 
3C 
FD 
3c 


LD 
LD 
LD 


HL, ($3C33) Load CP/M segments 
(SFD09),HL one after the other into 
HL,$3C32 work memory 
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0269: CD 31 03 CALL $0331 Get block number and 
Start address 
026C: 22 OB FD LD (SFDOB),H Note Start address 


O26F: CD 44 03 CALL $0344 
0272: 11 80 00 LD DE,$0080 Add Record offset 
(CP /M-Intern) 


0275: 19 ADD HL, DE from 128 

0276: 20 F7 JR NZ,SO26F If still not finished, 
then output 

0278: CD 26 05 CALL $0526 the following text 

O27B: 84 0C -Byte $84,S$0C line 4, column 12 

0O27D: 43 4F 4D 4D 4F 4E 20 43 COMMON C 

0285: 4F 44 45 00 ODE<End> 

0289: 21 2A 3C LD HL,$3C2A Basis address for Table 

028C: CD 24 03 CALL $0324 and load Common Code 

O28F: CD 26 05 CALL $0526 output the following text 

0292: 85 0C -Byte $85,$0C line 5, column 12 

0294: 42 41 4E 4B 45 44 20 43 BANKED C 

029c: 4F 44 45 00 | ODE<End> 

O2A0: 21 2C 3C LD HL,$3C2C Basis address for Table 

0O2A3: CD 24 03 CALL $0324 and load Banked Code 

O2A6: CD 26 05 CALL $0526 Output the following text 

O2A9: 86 0C -Byte $86,$0C line 6, column 12 

O2AB: 42 49 4F 53 38 35 30 32 BIOS8502 

02B3: 20 43 4F 44 45 00 CODE<Ende> 

02B9: 21 30 3C LD HL,$3C30 Basis address for Table 

O2BC: CD 24 03 CALL $0324 and load BIOS8502 Data 

O2BF: 3A 30 3C LD A, ($3C30) 

02C2: 47 LD B,A 

02Cc3: 3A 2F 3C 4D A, ($3C2F) 

02C6: 90 SUB B Form a difference 

02C7: 32 DE FF LD (SFFDE),A Difference as Hi-Byte 

O2CA: AF XOR A accu erase (=0) 

O02CB: 32 DD FF LD (SFFDD),A Mark as Lo-Byte 


O2CE: 2A 2D 3C LD HL, ($3C2D) return address for 
CP/M-return 
O2D1: E9 JP (HL) retrieve and return 
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KKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKK Read from track 1/Sector 0 


02D2: 21 00 FE LD HL,$FEO0 Note load address for 
first to load 

02D5: 22 18 FD LD (SFD18),H Block 

0O2D8: AF XOR A accu erase 

O02D9: 32 04 FD LD (SFD04),A Sector#=0 

O2DC: 3C INC A accu=l 

O2DD: 32 03 FD LD (SFD03),A Define track 

O2E0: CD 4F 04 CALL S$044F Read track/Sector 

O02E3: CD 6B 04 CALL $046B If read, test boot sector 

O2E6: C0 RET NZ No Boot sector 

O2E7: 3C INC A Last character of the 
block+1l 

O2E8: 21 00 38 LD HL,$3800 Start address 

O2EB: 3E 20 LD A, $20 32 as Block counter 

O2ED: 20 03 JR NZ,$O02F2 If accu before 
INC<>SFF, return 

O2EF: 26 3C LD H, $3C change Hi-Byte to $3C 

O2F1: 87 ADD A,A and double block number 
(Record number) 

O2F2: 22 07 3C LD ($3C07),H Note load address 

O2F5: 32 06 3C LD ($3006), Note block number 

O2F8: AF XOR A erase accu and 
Flags (important) 

O2F9: C9 RET and End the Routine 


KEKKKKKKKKEKKEKKKKKKKKKEKKKKKEKKKKK 


O2FA: 11 09 3C LD DE,$3C09 Load address for copy 

O2FD: 3A 35 3C LD A, ($3C35) Get Flag 

0300: B7 OR A Set Flags 

0301: 28 07 JR Z,$030A Flag isn't set 

0303: 1119 3c LD DE,$3C19 otherwise Start address+1é 

0306: 3D DEC A and decrement flag 
(counter) 

0307: C2 80 04 JP NZ,$0480 and output errors 

O30A: 2A 18 FD LD HL, (SFD18) Get goal address 

030D: 01 10 00 LD BcC,$0010 16 as Increment 

0310: 09 ADD HL, BC add 

0311: ED BO LDIR and copy 16 Bytes 
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0313: 3A 09 3C LD A, ($3C09) Get counter and 


0316: B77 OR A set Flags 

0317: C8 RET Z On zero, the work is done 
0318: 2A 18 3C LD HL, ($3C18 Else get address 

031B: AF XOR A and compare with $0000 
031C: BD CP L accu is zero 

031D: 28 02 JR Z,$0321 Lo-Byte is zero 

O31F: BC CP H compare with Hi-Byte 
0320: C8 RET Z Hi-Byte is zero 

0321: C3 29 02 JP $0229 zero flag will be 


passed as Parameter 


KKKKKKKKKKEKRKEKKKERKEKKKKKK KKK Load Records from Floppy 


0324: CD 31 03 CALL $0331 Get number & start address 
0327: 11 80 FF LD DE,SFF80 128 as two's complement 
032A: 19 ADD HL, DE add (flag!) 

032B: CD 44 03 CALL $0344 Load record 

0O32E: 20 F7 JR NZ,$0327 Another Record 

0330: C9 RET otherwise end of Routine 


KKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEKKKK Get number Start address 


0331: 5E LD E, (HL) Get number 

0332: 16 00 LD D,$00 and erase Hi-Byte 

0334: 7B LD A,E Test number 

0335: B7 OR A against zero 

0336: CA 1B 05 JP Z,$051B BAD if zero 

0339: EB EX DE, HL otherwise number to HL 
033A: 29 ADD HL, HL and double (Record number) 
033B: 22 00 3C LD ($3C00),HL note in $3C00 

O33E: EB EX DE, HL again to DE 

O33F: 2B DEC HL Decrement table pointer 
0340: 66 LD H, (HL) Get Hi-Byte 

0341: 2E 00 LD L, $00 and erase Lo-Byte 

0343: C9 RET End of the Routine 
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KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Load Record and 


0344: 
0345: 


0348: 
0349: 


034C: 
O34F: 
0352: 


0353: 
0356: 
0357: 
O35A: 
0O35B: 
035C: 
O35D: 
0360: 
0362: 
0365: 
0366: 
0369: 
O36A: 
O36B: 
036C: 


KEKKKKKKEKKKKKKKKKKKEKKEKKKEKKKKKKKK 


036D: 
0370: 
0373: 
0374: 


0377: 
0379: 
O37A: 
0O37B: 
O37E: 


E5 
2A 


EB 
2A 


CD 
CC 
EB 


21 
19 
22 
El 
E5 
EB 
O01 
ED 
2A 
2B 
22 
7D 
B4 
El 
C9 


21 
22 
E5 
2A 


16 
oE 
23 
22 
EB 


07 


04 


FA 


6D 


80 


04 


80 
BO 
00 


00 


00 
18 


02 


00 


02 


3C 


3C 


00 


03 


00 


3C 


00 


3c 


3C 


34 
FD 


3C 


SC 


PUSH 


LD 
LD 
PUSH 
LD 


LD 
LD 
INC 
LD 
EX 


decrement counter 


HL 
HL, ($3C07) 


Save to stack 
Save the comparison 
address 


DE, HL and mark in DE 

HL, ($3C04) Get second comparison 
address 

SOOFA Compare (HL) with (DE) 

Z,$036D and return, if the same 

DE, HL else exchange the 
register again 

HL,$0080 Record-Offset of 128 

HL, DE add to each other 


($3C04),HL and note again 
HL call address back again 


HL & restore safely to stack 
DE, HL Exchange goal and source 
BC,$0080 and copy 128 Bytes 

(1 Record) 
HL, ($3C00) Get Record counter 
HL Decrement by one 


($3C00),HL and store again 
A, L Test if record number 
H is exactly zero, set flags 
HL call address back | 
and end Routine 


Load data from 
$3400 + Offset 


HL,$3400 Load address (Basis) 

(SFD18),H Note for 8502-Code 

HL and push to Stack 

HL, ($3C02) pointer to Block load 
table 


D, $00 Erase Hi-Byte | 
E, (HL) and get Lo-Byte from Table 
HL Increment pointer to Table 


($3C02),HL and note again 
DE, HL Number blocks to HL 
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O37F: 
0380: 
0381: 
0384: 
0385: 
0386: 
0387: 
0389: 
O38B: 
038C: 


O38F: 


0390: 
0393: 
0394: 


0396: 
0399: 


039C: 
O39F: 
0O3A0: 
03A3: 
03A4: 
O3A6: 
O3A9: 
O3AA: 
O3AC: 
O3AF: 
O3B0: 


03B3: 


03B4: 
03B7: 


O3B8: 
O3BA: 
O3BB: 
O3BE: 
O3BF: 


29 
29 
3A 
OF 
OF 
OF 
FE 
28 
29 
22 


3D 


32 
F5 
3E 


32 
CD 


2A 
23 
22 
Fl 
28 
3A 
Al 
28 
2A 
ES 
CD 


El 


3A 
BD 


20 
E5 
2A 
23 
22 


06 


04 
O01 


16 


05 


01 


BD 
E3 


16 


16 


2A 
08 


24 
03 


B3 


03 


13 


16 


16 


3C 


FD 


FD 


31 
03 


FD 


FD 


FD 


FD 


03 


FD 


FD 


FD 


PUSH 


INC 


HL, HL 
HL, HL 
A, ($3C06) 


$04 
Z,$038C 
HL, HL 
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and double ->,Record no. 
double again 

Get block number 

/2 

/4 

/8 

Is block number 32 - 637? 
Yes, then return 

else double HL again 


(SFD16),HL Note us as Block number 


A 


(SFD05),A 
AF 
A, $01 


($31BD),A 
$03E3 


(load CP/M) 
Decrement number to 
loaded Blocks 

and otherwise note 
Save number to Stack 
Number to the 

loaded data blocks 
set to l 

Set to Block# -> 
Track/Sector 


HL, (SFD16)Get Block number 


HL 


Increment by one and 


($FD16),HL lay down again 


AF 
Z,$03D0 
A, (SFD08) 
A 
Z,$03D0 


Get counter and Flags 
If end, then return 
Else get error flag 
and set Flags 

No errors 


HL, ($SFD03) Get Track/Sector 


HL 
$03E3 


HL 


A, ($FD03) 
L 


NZ, 503CD 
HL 
HL, (SFD16 
HL 


and save to stack 
wander Block# in 
Track/Sector 

calculate Track/Sector, 
call back 

Get track# 

Compare with calculated 
track 

they are different 

save Track/Sector 

Get Block# 

and increment Block number 


(SFD16),HL Note new Block number 
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03C2: 


03C5: 
03C6: 


03C9: 


O3CA: 
03CC: 


O3CD: 


21 BD 31 


34 
21 05 FD 


35 


20 H4 
El 


22 03 FD 


LD 


INC 
LD 


DEC 


JR 
POP 


LD 


HL, $31BD 


(HL) 


HL, SFDO5 


(HL) 


NZ, $03B0 


HL 


(SFD03),HL Note 
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pointer to loaded Block 
number 

and also increment 
Still to loaded Block 
number 

also increment by 1 
(error correction) 

still at least one Block 
Get Track/Sektor from 
Stack 

Track/Sektor 


KAKKKKKKKKKKRKKKKKKKKKKKKKKEEKKKKKK Error walk 


03D0: 
03D3: 
O3D6: 
O3D9: 
O3DA: 


O3DB: 


O3DE: 
O3DF: 


O3E1: 
0O3E2: 


KEEKKEKKKKEKKKKEKKEKEKKKKKKKKKKKKE 


O3E3: 
0O3E5: 
O3E8: 
O3EB: 


O3EE: 


CD 4F 04 
21 19 FD 
3A BD 31 
86 
77 


3A 05 FD 


A7 
20 AE 


El 
C9 


3E 23 

32 00 24 
2A 16 FD 
11 A8 02 


B7/ 


CALL $044F 


LD 


LD 
LD 
LD 
LD 


OR 


HL, SFD19 


A, ($31BD) 
A, (HL) 
(HL),A 
A, ($FD05) 


A 


NZ, $038F 


HL 


A, $23 


Read Block/Blocks 
from Diskette 
Hi-Byte destination 
address 


Get number to loaded block 
Add to destination address 
and note 

Get number to loaded 
blocks 

Set flags 

Continue, if not yet 
finished 

else get Track/Sektor 

and End the Routine 


Make out of Block# 
Track/Sector 


35 as Offset for 1571 
(Side 2) 


($2400),A and mark Offset 
HL, ($FD16)Get Block# 


DE, $02A8 


A 


from Block # $2A8 -> 
address side 2 

Carry for subtraction 
erase | 


Abacus Software 


O3EF: 


O3F1: 


O3F3: 
O3F4: 
O3F7: 
O3F8: 


O3F9: 
O3FA: 


O3FD: 


0400: 


0401: 


0403: 


0405: 
0406: 
0409: 
040C: 


O40E: 


0410: 
0413: 


0416: 


0418: 
O41A: 
O41D: 
0420: 
0421: 
0423: 
0424: 
0425: 
0426: 
0428: 
042A: 


ED 52 


30 05 


32 00 


11 65 


O01 00 


ED 52 


38 1B 


11 85 


O01 11 


ED 52 


38 10 


11 6C 
01 18 


ED 52 
38 06 
11 00 
01 1E 


16 00 


ED 52 
30 FB 


24 


O01 


15 


00 


13 


00 
12 


00 
11 


SBC 


SBC 


INC 


SBC 


HL,DE 
NC, S03F8 


A 


($2400),A 


HL,DE 
HL 


HL 
DE, $0165 


BC, $1500 
A 

HL, DE 

C, 30420 


HL 

DE, $0085 
BC, $1311 
HL, DE 


C,$0420 


DE, $006C 
BC, $1218 


HL,DE 


C,$0420 
DE, $0000 
BC,$111E 
HL,DE 

D, $00 
E,B 

A 

Cc 

HL,DE 
NC, $0425 
HL,DE 
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absolute Blocknumber on 
side 2 

Find out by subtraction 
return on side 1 

Offset erase 

and save 

subtraction correction 
Block# + 2, there 1./2. 
Block 

Reserved for Directory 
(357) Block number from 
track 19 

track O0- has 21 
sectors/track 

erase carry for 
subtraction 

Control on 21 
sectors/track 

Yes, Block lies in 
21-sectors-area 

+1 for. error correction 
Have the next 133 blocks 
17 sectors per track 
Test if block is in this 
area 
Yes, 
tests 
Have next track 
18 sectors/track 
track $18) 

Test if block is in this 
area 

Yes, then end test series 
correction factor to zero 
from track 30-17 sectors 
Subtraction correction 
Erase Hi-Byte from DE 
sector to E 

Erase Carry 

Increment track 

subtract sectors per track 
and evtl. continue looping 
error correction 


then end series of 


(from 
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042B: 
042E: 
O42F: 
0432: 
0433: 


0436: 
0439: 
043A: 
0O43B: 
043D: 


043E: 
043F: 
0440: 


0441: 
0443: 


0444: 
0445: 
0447: 
0448: 
0449: 
044A: 
044D: 
O44E: 


3A 
81 
32 
E5 
21 


01 
7B 
B9 
28 
09 


OB 


00 24 


03 FD 


BS OF 


15 00 


OA 


OB 


BY 


28 
09 


OB 
18 
Cl 
09 
TE 
32 
3C 
C9 


04 


F9 


04 FD 


A, ($2400) Get Offset for page 0/1 


A,C 


add Offset to track 


(SFD03),A Note calculated track 


HL 


HL, SOFB5 


BC, $0015 


A,E 
Cc 


Z,$0447 


HL, BC 


BC 
BC 


BC 
$0440 
BC 
HL, BC 


A, (HL) 
(SFD04), 


A 
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Save sector# to Stack 
Table for adjusted sector 
numbers 

To optimize access 

Get sector number and 
compare with maximal value 
Is 21, then end 

else add Offset for table 
pointer 

Next area has 2 sectors 
fewer per track 

Has the maximal value been 
reached? 

Yes, then end 

else add Offset for next 
area 

Next area has one sector 
fewer and cont. searching 
Get sector# from Stack 
and add to Basis 

Get adjusted sector # 
and note 

Erase flags and 

End block calculations 
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KKEKEKKKKEKKKKKKEEKKEKEKRKEKRKKEKKKKKKKKKKE 


O44F: 
0451: 
0454: 
0456: 
0459: 


045C: 
O45F: 


0461: 
0464: 
0467: 
0468: 
O46A: 


KAKKKKKEKKKKKEKEKEKKKKKKEKKKKK KKK KKKK 


O46B: 


O46E: 
O46F: 
0471: 
0472: 
0473: 
0474: 
0476: 
0477: 
0478: 
0479: 
O47B: 
O47C: 
O47E: 
O47F: 


KKKKKKKKKKKKKKEKKKKKKKEKKEKKEKKKKKKK 


0480: 
0483: 


3E 
32 
3E 
32 
CD 


CD 
3E 


32 
3A 
B7/ 
20 
C9 


21 


7E 
FE 
CO 
2C 
75 
FE 
co 
2C 
7E 
FE 
CO 
2E 
TE 
C9 


CD 26 05 


93 


03 
36 
01 
O01 
8C 


E0 
3F 


00 
06 


32 


00 


43 


42 


4D 


FF 


05 


3C 


FD 
05 


FF 


FE 
FD 


FE 


LD 
LD 
LD 
LD 
CALL 


CALL 


CALL $0526 
-Byte $93,$05 


A, $03 


($3C36),A 


A,$01 


(SFD0O1),A 


$058C 


SFFEO 
A, $3F 


(SFF0O0),A 
A, (S$FD06 


A 


NZ,3049C 


HL, $FEO00 


A, (HL) 
$43 
NZ 

L 

A, (HL) 
$42 
NZ 

L 

A, (HL) 
$4D 
NZ 

L, $FF 
A, (HL) 
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Reading from disk 


Set number of read tries 
on the floppy 

set the flag for vector 
(won't be set again) 

Show Block (Track/sector) 
on the screen 

Turn on 8502 

Turn on Configuration byte 
RAM Bank 0 


Get read error flag 

and test for read errors 
Read read errors 

Else end the routine 


Test loaded block on 
boot sector 


Start address of 


loaded Block 

Get first character 

Ls atc. "C2 

No, then not a boot sector 
get next character 

and 

compare with "B" 

No, then end 

third character will be 
checked 

against "M" 

No, not a Boot sector 
Counter on last character 
Get this character 

and end the routine 


error tread 


Output the following Text 
line 19, column 5 
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0485: 
048D: 
0495: 
O49B: 
049C: 
049D: 
O49F: 
04A2: 
04A3: 
O4A6: 
O4A8: 
O4AB: 
O4AD: 
04B4: 
0O4B8: 
0 4BB: 
04C5: 
O4CD: 
04D1: 
04D3: 
O4DB: 
04E3: 
O4EA: 


O4ED: 
O4EF: 
O4F1: 
04F2: 
O4F 4: 
O4F6: 
O4F8: 
O4FA: 
O4FC: 
O4FE: 
O4FF: 
0502: 
0504: 
0507: 
O50A: 
O50B: 
0513: 
0519: 
O51B: 


33 
43 
20 
CF 
3C 
28 
3A 
3D 
32 
20 
CD 
93 
52 
OZ 
CD 
20 
45 
20 
94 
44 
4E 
38 
01 


3E 
ED 
0c 
ED 
E6 
28 
ED 
E6 
20 
C7 
CD 
93 
4E 
CD 
20 
43 
20 
18 
CD 


32 
50 
53 


FC 
36 


36 
AC 
26 
05 
45 
4F 
26 
2D 
54 
52 
OF 
45 
54 
20 
00 


FE 
719 


718 
02 
A3 
78 
O01 
EC 


26 
05 
4F 
26 
43 
50 
46 
9D 
26 


4B 20 4D 41 58 20 32K MA: 
4D 2B 2E 53 59 53 CPM+.SYS 
49 5A 45 00 SIZE<End> 
RST $08 Repeat Boot proceedings 
INC A Test if Accu=&FF 
JR Z,$049B If Accu=&FF also reboot 
3c LD A, ($3C36) Else get the read counter 
DEC A and decrement by one 
3C LD ($3C36),A put it down again 
JR NZ,$0454 Try again 
05 CALL $0526 Output the following text 
-Byte $93,$05 line 19, column 5 
41 44 20 45 52 READ ER 
52 00 ROR<End> 
05 CALL $0526 Output following text 
20 48 49 54 20 52 HIT 
55 52 4E 20 54 4F RETURN TO 
45 54 52 59 RETRY 
.Byte $94,S0F line $14,S0F 
4C 20 54 4F 20 45 DEL TO E 
45 52 20 43 31 32 ENTER C128 
4D 4F 44 45 00 MODE<End> 
DC LD BC, $DC00 Port A CIAl 
(Keyboard decoding) 
LD A, SFE DEL- and <CR> are 
OUT (C),A masked and checked 
INC Cc Pointer to Port B of CIAI1 
IN A, (C) Get result 
AND $02 Test Bit for <CR> 
JR Z,$049B <CR> was hit -> Reboot 
IN A, (C) Else get new value 
AND S01 Test DEL-Bit 
JR NZ,S$O04EA Not hit, then keep trying 
RST $00 Else in the C-128-Mode 
05 CALL $0526 Output the following text 
-Byte $93,$05 line 19, column 5 
00 NO<End> 
05 CALL $0526 Output the following text 
-Byte $20,$43 $20=Ab Cursor position 
4D 2B 2E 53 59 53 CPM+.SYS 
49 4c 45 00 FILE<End> 
JR $04B8 New try or 128 Mode 
05 CALL $0526 Output the following text 
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O51E: 
0520: 
0524: 


93 


42 41 44 00 


18 El 


-Byte $93,505 


JR 


$0507 


KAEKKKKKKKKKKEKKKEKEKKEKKKKKKKKKKKKK 


0526: 
0527: 
052A: 
052B: 


KKEKEKEKKEKEKEKKEKRKEKEKKKEKKEKEKKKKEKKKKKKKKKE 


052C: 
O52F: 
0532: 
0533: 


KKKEEKKKKEKKEKEKEKEKRKKKEKRKEKRKEKKKKKKKKKKEK 


0534: 
0535: 


0536: 
0539: 
053A: 


053C: 


053D: 
0540: 
0541: 
0542: 
0543: 
0544: 
0546: 
0547: 
0548: 
054B: 
054C: 


B3 
CD 34 05 
B3 
C9 


21 FF FF 
22 04 24 
D5 
El 


56 
23 


3A 05 24 


28 05 


32 05 24 


FE 24 


21 33 05 


FE OA 


EX (SP) , HL 
CALL $0534 
EX (SP) , HL 
RET 


LD 
LD 
PUSH 
POP 


HL, $FFFF 
($2404), 
DE 
HL 


D, (HL) 
HL 


A, ($2405 
A 
Z,$0541 
D 
($2405), 


D,A 
A,D 
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Line $13, 
BAD<End> 
New try or 128-Mode 


column $05 


Output the following text 


return address from Stack 
Output text from HL to$s00 
End of Text as new return 
address and RETurn 


Output text from DE 


character mask for output 
Set character 
Text address 

and read in HL 


to Stack 


Output text from HL 


Get character 

Increment pointer to 

Text position 

Get mask 

Set flags 

Mask allows everything, 
end 

Otherwise string together 
with mask 

and write back 

character to D 

actual character 

Set flags 

zero character signals end 
Dollar sign? 

If yes, then end 

Save the actual counter 
jump from address $0533 
Simulate 


If line feed, then 
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054E: 
054F: 
0551: 
05593% 
0556: 
0559: 
055C: 


O55D: 
O5S5E: 
0560: 


0562: 


0565: 
0568: 
O56B: 
O56E: 


0571: 
0574: 


O577: 
0578: 
0579: 
0O57B: 


O57D: 
O57E: 
O57F: 
0580: 
0581: 
0582: 


0583: 
0585: 
0586: 
0589: 
O58A: 


O58B: 


C8 
FE 
20 
CD 
CD 
CD 
DF 


0C 
FE 
20 


11 


CD 
CD 
CD 
11 


CD 
CD 


DF 
20 
E6 
28 


Cl 
El 
SE 
25 
ES 
C5 


CB 
D5 
CD 
D1 
DF 


04 


OD 
OB 
45 
Fil 
Fl 


FF 
17 


00 
85 
48 
7A 
00 


85 
62 


80 
39 


BA 


BC 


OA 
06 
09 


18 


05 
OA 
07 
00 


05 
OA 


09 


RET Z 

CP SOD 

JR NZ,$055 
CALL S$0A45 
CALL SO6F1 
CALL S$09F1 
RST $18 
-Byte $0C 

CP SFF 

JR NZ,$0579 
LD DE, $1800 
CALL $0585 
CALL S$0A48 
CALL SO77A 
LD DE, $0000 
CALL $0585 
CALL S0OA62 
RST $18 
.Byte $20 

AND A, $80 
JR Z,$05B6 
POP BC 

POP HL , 
LD E, (HL) 
INC HL 
PUSH HL 

PUSH BC 

RES 7,D 
PUSH DE 

CALL S$0O9BC 
POP DE 

RST $18 
-Byte $04 
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return on this address 
Is character <CR>? 

No, then to S$055E 
column=0 - 40 characters 
column=0 - 80 characters 
Increment line pointer 
jump to $06D1 (Increment 
line counter) 
Return vector 
Ist character 
No, then jump 
erasing part 
Pointer to Status line 
(line /column) 

Set Cursor position 
Erase status line 
Erase status line 
Pointer to first 
screen position 

Set Cursor position 
Erase cursor position to 
screen end 

The same for VDC 
Return vector 32 

Test Bit 7 

If erased,then output 
normal character 
Simulate RS-address 
Pointer back 

Get column 

Pointer to next character 
Save pointer 

Save simulated 
CALL-address 

Erase bit 7 from line 
Save line /column 

Set 40-character-Cursor 
Get line /column 

Jump on 
80-character-Cursor 
Return vector is 4 


SFF? 
over 


(40er) 
(VDC) 


back 
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KKKEKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKANNHOUNCeE block 


0O58C: 


O58F: 
0592: 
0595: 
0598: 
O59B: 
O59E: 
O5A0: 
05A3: 


KKEKKKKKKKKKKEKKKKKEKKEKEKEKRKKKEKKKKKKK 


O5A6: 
O5A8: 
O5A9: 
O5AB: 


O5AD: 


O5AF: 
O5B0: 


O5Bl1: 
05B4: 


KKEKKEKKKEKKKEKKKKKKKKKKKEKKEKKKKKKKKKK 


O5B5: 
O5B6: 
O5B7: 
O5SBA: 
O5BB: 


O5BC: 


11 


CD 
11 
CD 
3A 
CD 
16 
CD 
3A 


06 
04 
D6 
30 


C6 


F5 
78 


CD 
Fil 


57 
D5 
CD 
D1 
DF 


00 


4A 


2F 


OA 
FB 


3A 


B5 


6E 09 


18 


06 
18 
09 
FD 
05 


05 
FD 


05 


LD 


CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 


DE, $184A 


$06AB 


DE, $1822 


$SO09BC 


SO5A6 
D,$20 
SO5B6 


A, (SFDO 


B, $2F 
B 
SOA 


NC, $05A8 


A,$3A 


AF 
A,B 


$05B5 
AF 


LD D,A 
PUSH DE 
CALL $096E 
POP DE 
RST $18 
.Byte $00 
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(Track/sector) to read 


Set line 24, 

column 74 as Cursor 
Set 80-char cursor pos. 
Line 24, column 34 

Set 40-character-Cursor 
to read track 

wander in ASCII 

Blank character 

output 

to loading sector 


Make out <Accu> ASCII 


ASCII "0" - 1 

Increment ten's place 
Move (if possible) 10 down 
Ten's place is still 
not zero > 

error correction plus 
ASCII "Q" 

Save one's place 

Ten's place (ASCITI) 

to <Accu> 

and output 

Get one's place (ASCII) 


Output character <accu) 


characters after <D> 
and note 

character output 

Get output character (V) 
character to 
40-character-screen 
Vector 0 
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KREKKKEKKKKEKKEKKKKEKKKKKKKKKKKKKKKKKK 


Prepare 80 character set 


O5BD: 21 04 30 LD HL,$3004 Address in VDC-RAM 

05C0: CD 3D 09 CALL $093D Get value from $3004 

05C3: 04 INC B and check against 0 by 

05c4: 05 DEC B decrementing and 
incrementing 

05C5: C8 RET Z If zero, then it was 
already prepared 

05C6: 21 00 38 LD HL,$3800 Fill $3800 to 

05C9: 01 00 04 LD BC,$0400 S$3FFF with the 

O5cc: 16 00 LD D, $00 value 0 

O5CE: CD 47 08 CALL $0847 (erase) 

O5D1: 21 AO 37 LD HL,$37A0 ASCII 122 

0O5D4: 11 AO 38 LD DE,$38A0 becomes 

O5D7: O01 08 00 LD BC,$0008 ASCII 138 

O5DA: CD BO 08 CALL §$08BO 

O5DD: 21 90 36 LD HL, $369 ASCII 105 

O5E0: 11 90 38 LD DE,$3890 becomes 

O5E3: 01 08 00 LD BC,$0008 ASCII 137 

O5E6: CD BO 08 CALL $08BO 

O5E9: 21 EO 35 LD HL,$35E0O ASCII 94 (PT) 

O5EC: 11 EO 38 LD DE,$38E0 becomes 

OSEF: 01 18 00 LD BC,$0018 ASCII 95 (_) 

O5F2: CD BO 08 CALL $08BO0 

OSF5: 21 10 30 LD HL,$3010 A-Z (ASCII 1-26) 

O5F8: 11 10 36 LD DE,$3610 to 

OSFB: 01 98 O1 LD BC,$0198 ASCII 97 ff. 

OSFE: CD BO 08 CALL $08BO0 

0601: 21 00 30 LD HL, $300 Erase $3000 to $31FF 

0604: O01 00 02 LD BC,$0200 in 

0607: 16 00 LD D, $00 VDC-RAM 

0609: CD 47 08 CALL $0847 

060C: 21 00 20 LD HL,$2000 Copy "@" (ASCII 64) 

O60F: 11 00 34 LD DE,$3400 into VDC- 

0612: 01 08 00 LD BC,$0008 RAM 

0615: CD BO 08 CALL S$08BO 

0618: 21 BO 21 LD HL,$21B0 t to u (ASCII 27 thru 29) 

061B: 11 BO 35 LD DE, $35B to 

O61E: O01 28 00 LD BC,$0028 ASCII 91 

0621: CD BO 08 CALL S0O8BO 

0624: 21 C0 21 OLD HL, $21C0 ASCII 28 (find character) 


0627: 11 00 38 LD DE, $3800 to 
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062A: 01 08 00 LD BC, $0008 ASCII 128 

062D: CD BO 08 CALL $08B0 

0630: 21 E0O 21 LD HL,$21E0 ASCII 30 (%*) becomes 129 

0633: 1110 38 LD DE,$3810 and | 

0636: 01 18 00 LD 

0639: CD BO 08 CALL $08BO0 

063C: 21 00 24 LD HL,$2400 Capital letters and 
other characters 

063F: 11 00 3C LD DE,$3C00 to $3C00 (ASCII 192) 

0642: O1 F8 03 LD BC, $03F8 

0645: CD BO 08 CALL $08BO 

0648: 111A0F # LD DE,SOF1A ASCII 227 

064B: 21 C0 35 LD HL, $35C becomes 


064E: CD 70 06 CALL $0670 ASCII 92 

0651: 21 EO 35 LD HL, $35 ASCII 228-230 

0654: 06 03 LD B, $03 becomes 

0656: CD 62 06 CALL $0662 ASCII 94-96 

0659: 21 BO 37 LD HL, $37B ASCII 231-235 

065C: 06 05 LD B, $05 becomes 

O65E: 18 02 JR $0662 ASCII 123 ff. 

0660: El POP HL Get return address to HL 
0661: E3 EX (SP) ,HL and erase a return address 


KK KKK KAKK EKER KEKE KKKKEKKEKEKKEREK Copy (DE) ->(HL) VDC (BC) 


0662: C5 PUSH BC Save counter 

0663: E5 PUSH HL Note destination address 

0664: CD 70 06 CALL $0670 (DE) ->(HL) VDC-RAM 8 
Bytes 

0667: El POP HL Get goal address’ back 

0668: 01 10 00 LD Bc, $001 And add 16 (instead of 8) 

O66B: 09 ADD  4HL,BC because of internal 
VDC-building 

066c: Cl POP BC Get counter back 

066D: 10 F3 DJINZ $0662 Another character to copy? 

O66F: C9 RET No, then end 
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a aa 


KAKI KI KAKA RAK ROKR KOK IORI KIKI KK IK (DE) -> (HL) VDC; 8 Bytes 


0670: 
0673: 
0675: 
0676: 
0678: 
0679: 
O67A: 
O67C: 
067D: 
O67F: 
0680: 
0681: 


0683: 


CD 
26 
1A 
ED 
OD 
13 
ED 
17 
30 
0c 
25 
20 


C9 


53 
08 


719 


78 


FB 


F2 


0 


$0953 
H, $08 
A, (D 

(C),A 
Cc 

DE 

A, (C) 


NC, $067 
Cc 
H 
NZ,$06 


KEEKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKEKE 


0684: 
0687: 


O68A: 
O68D: 


O68F: 
0691: 


0692: 
0695: 
0698: 
0699: 


2A 
CD 


3A 
FE 


28 
3C 


32 
2A 
23 
22 


11 
07 


13 
4F 


3C 


13 


11 


11 


24 
09 


24 


24 
24 


24 


LD HL, ($2411 
CALL $0907 

LD A, ($241 

CP S4F 

JR Z,S06CD 
INC A 

LD ($2413), 
LD HL, ($241 
INC HL 

LD ($2411), H 


‘Announce HL as update 


8 Bytes should be copied 
Get the character from RAM 
and store it in VDC 
Pointer to Status-Flag 
Increment pointer to table 
Get status flag 

Test ready-Bit 

Still not finished 
Pointer again to $D601 
Decrement pointer 

and jump if still not 

8 Bytes | 

else end routine 


Output <A> character inkl. 
Cursormove 


Get cursor address 

Output character on 

80-character 

Cursor column 

right boarder 

(79) reached? 

Yes, then next line 

else increment the 

column pointer 

and note the new column 

Get cursor address 

and also increment a place 
and store again 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKEKK Set HL as Cursor address 


069C: 
O69E: 
O6Al1: 


3E 


OE 


CD 45 09 


ED 


61 


LD 
CALL 
OUT 


A, SOE 
$0945 
(C),H 
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Cursor address 
Announce to VDC 
Hand over High Byte on VDC 


Hi-Byte 
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ae 


O6A3: 3E OF LD A, SOF 
06A5: CD 45 09 CALL $0945 
O6A8: ED 69 OUT (C),L 
O6AA: C9 RET 


KKEKKKKKKKKEKKKEKKEKKKKKKKKEKKKKKKKEKK 


O6AB: 7A LD A,D 
O6AC: FE 19 CP $19 
O6AE: DO RET NC 
O6AF: 7B LD A,E 
06B0: FE 50 CP $50 
06B2: DO RET NC 
06B3: EB EX DE, HL 
06B4: 22 1324 #4x®\4LD ($2413) , HL 
06B7: 2A 13 24 #4z2JLD 

O6BA: CD CE 0C CALL $0CCE 
O6BD: 22 11 2 LD 

06CO: 18 DA JR $069C 


KKEKKKKKKKKKKKKKEKKKKKKKEKKKKEKKKKKE 


06C2: 3A 14 24 LD A, ($2414) 
06C5: B7 OR A 

06C6: C8 RET Z 

06C7: 3D DEC A 

06C8: 32 14 24 LD ($2414) ,A 
O6CB: 18 EA JR S06B7 
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Register 15 is 
Cursor address 
announce to VDC 
and also pass Lo-Byte 
End of transfer 


Lo 


Set 80-character-Cursor 
position 
D:column, E: line 
Get line 

Larger than 24 
Yes, then invalid and end 
Get column 

Larger than 79? 

Yes, then invalid and end 
for the purpose of storing 
HL to DE 

and noting 
Cursor position 


HL, ($2413) Get cursor position 


line *80 + column 


($2411) ,HL Note address 


Pass cursor address 
to VDC 


Decrement line by one 
Get cursor line 

set the CPU-Flags 
Line is already the 
then stop 

else decrement the 
and note this 

new calculated 
cursor address 


line 
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KAR KAKA KKK KAKA K AKER KEK KR KK RRR KK Column=0 (1st col) 


06CD: 
O6CE: 
06D1: 
06D4: 
O6D6: 
O6D8: 
O6DA: 


O6DB: 


18 EB 


INC 


JR 


A 
($2413),A 
A, ($241 
$17 

Z, S06F 
NC, SO6F4 
A 


$06C8 


KRKKEKKKKKKEKKKEKKKEKKEKEKKKKEKKKKKKKKKEKE 


QO6DD: 
O6E0: 
O6E1L: 


O6E2: 
06E3: 
O6E6: 


3A 13 2 
B7 
C8 


3D 
32 13 24 
18 CF 


LD 
OR 
RET 


DEC 
LD 
JR 


A, ($2413 
A 
Z 


A 
($2413),A 
$06B7 


KKEAEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


O6E8: 
O6EB: 
O6EC: 


O6EE: 
O6F0: 


3A 13 24 
3C 
FE 50 


20 F3 
C9 


LD 
INC 
CP 


JR 
RET 


A, ($2413) 
A 
$50 


NZ, $06E 


KKEEKKKKKKKKEKKKKKEKKKKEKKEKEKKKKKEKKKK 


O6F1: 
O6F2: 


AF 
18 EF 


XOR 
JR 


183 


set inkl. 
Influence lines 


Accu becomes null 

and note as column 
Get actual cursor line 
Is it the 23rd line.? 
Reached, then jump 
Line is 24 
Else increment line 
by one 
and mark line 


Decrement column by one 


Get actual column 

set flags to test for zero 
If already first column, 

then end 

else decrement column pter 
and note new column 

Calculate new 

Cursor address 


Increment column by one 


Get actual column 
and increment by one 
has column 80 been 
reached? 

No, then mark column 
else end the routine 


Set column to 0 
(first column) 


set accu to exactly 0, 
then note as new column 
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eee a 


KEKKKKKKKEKKKKKKEKRKEKKKEKKKEKKEKKKEKKEKKK Sot line =23 


O6F4: 3E 17 LD A,$17 Set line to 23rd 

O6F6: 32 14 24 LD ($2414),A and mark in memory 

O6F9: 21 50 00 LD HL,$0050 Scroll'‘the screen 

O6FC: 11 00 00 LD DE,$0000 one line up 

O6FF: O01 30 07 LD BC,$0730 by copying the 2nd line to 

0702: CD BO 08 CALL $08B0 the first line etc. 

0705: 21 30 07 LD HL,$0730 Pointer to last line (not 
Status line ) 

0708: 01 50 00 LD BC,$0050 Number is 80 characters 


070B: CD 41 08 CALL $0841 Line erase 
O70E: 18 A7 JR $06B7 announce new cursor 
position 


KKEKKEKKKEKKKKEKKKEKKKKKKKKEKKKKKKKEKKE Define new 


attributes (B:to erase, | 
C:to set parameters) 


0710: 3A 15 24 LD A, ($2415) Get attribute 


0713: 2F CPL Complement attribute 
0714: BO OR B to erase Bits (qualities) 
0715: 2F CPL complement again 

0716: Bl OR Cc to set Bits (qualities) 
0717: 32 15 24 LD ($2415),A Store the new attributes 
O71A: C9 RET Routine's end 


KKKKKKKKKKKKKKREKKKKKKEKRKKKKEKEKKKKK 


0O71B: 78 LD A,B Get character . 

071C: D6 20 SUB $20 Subtract ASCII 32 (blank) 
O71E: FE 20 CP $20 ASCII 32? 

0720: 38 OA JR C,$072C Smaller, then jump 

0722: OE 20 LD C,$20 Move marker for ASCII 32 
0724: CD E5 OC CALL S$0CE5 Transform ASCII + Code 
0727: D8 RET Cc Produce 

0728: TE LD A, (HL) Get character from table 
0729: E6 OF AND SOF ‘Mask Bits 4-7 

072B: 80 ADD A,B and mark <B> as Offset 
072Cc: 32 00 24 LD ($2400) character 
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eee 


O72F: 


0731: 
0733: 
0736: 
0739: 
073A: 
073B: 


073D: 


073F: 
0741: 
0744: 
0745: 


0747: 


O74A: 


0O74B: 
074D: 


OE 


C6 
21 
CD 
7E 
80 
FE 


38 


K6 
32 
F5 
3E 


CD 


Fl 


ED 
C9 


20 


OF 


OC 


10 


1B 


OF 


16 24 


1A 
45 09 


719 


LD C,$20 
ADD A,$30 
LD HL, SOFOA 
CALL SO0CE8 
LD A, (HL) 
ADD A,B 
CP $10 
JR C,$075A 
AND SOF 
LD ($2416),A 
PUSH AF 
LD A,S1A 
CALL $0945 
POP AF 
OUT (C),A 
RET 


KAKKKKKKEKKKKKKKKKKEKKKKEKKKKKKKKEKK 


O74E: 
0751: 
0752: 
0755: 
0756: 
0759: 


3A 
4] 
3A 
57 
3A 
C9 


16 24 


15 24 


17 24 


LD 
LD 
LD 
LD 
LD 
RET 


A, ($2417) 
B,A 
A, ($2415) 
D,A 
A, ($2417) 
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ASCII 32 
subtraction-counter 
ASCII 48 ("0") add 
Table for color alteration 
transform 

Get color values 
and add attribute 
Transfer into high 
value Nibble? 
Foreground color 

is defined 

else mask Bits 4-7 
Note background color 
Save color code 
Register 
26=fore/background 
color 

vDbC-Status wait for 
and announce 

Get color value 

and set color 

End of the routine 


B:Backgnd, D:Attribut 
A:Foregnd 


Get 
and 
Get 
and 
Get 
End 


background color 
move to <B> 
attribute 

move to D 
foreground color 
of the routine 


KHKKKKKEKKAKEKKKKKKKKKAKKKKKKKEKKDEFine new foreground color 


O75A: 
O75B: 
O75E: 
0760: 
0761: 
0764: 


47] 
3A 
B6 
BO 
32 
3A 


15 24 
FO 


15 24 
00 24 


B,A 
A, ($2417) 
SFO 

B 
($2415),A 
A, ($2400) 
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Color to B 

Get actual attribute 
Mask color nibble 

and set a new color 

note new attribute 

Get background color and 
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nS 


0767: 
076A: 
076D: 
0770: 
0771: 
0774: 
0777: 
0779: 


KKK KK KKK KEK KEK KKK KKKKEKKKEKKKKKKKKEK 


O77A: 


O77D: 
O77E: 


32 17 24 
2A 11 24 
11 00 08 


CD 53 09 
3A 15 24 
ED 79 

C9 


CD C7 0C 


03 
18 OE 


CALL 


INC 
JR 


($2417),A note 


HL, ($2411 


DE, $0800 
HL,DE 
$0953 
A, ($241) 
(C),A 


$0CC7 


BC 
$078E 


KKKEKEKKKKKKEKEKKKKKEKKKKKEKKKRKKKKKKKE 


0780: 


0783: 
0784: 


0787: 


0788: 


O78A: 


078B: 
078C: 


078D: 


078E: 


CD C7 OC 


EB 
21 80 07 


ED 52 


EB 


C3 41 08 


CALL 


$0CC7 


DE, HL 
HL, $0780 


A 


HL,DE 
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Get Cursor address 
Offset for RAM attribute 
add 

Announce HL as Update 
Get attribute 

store to Cursor address 
End of routine 


Erase cursor position to 
line end 


Get cursor position, 
number of characters 
Increment the number 
erase the rest of the line 


Erase Cursor position to 
screen's end 


Get Cursor position, 
number of character 
Cursor address to DE 
address beginning of 
status line 

Erase carry for 
subtraction 

Calculate # chars to 
status line 

If negative, then 
End (error) 

Else BC exactly 
Number characters to 
status line 

and actual cursor position 
again to HL 

Erase to beginning of 
status line 
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eee 


KAEEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK Insert 1 character shift 


rest line > 


0791: CD Cc7 0c CALL $0CC7 Get cursor position and 
number character 
0794: 21 4F 00 LD HL,$004F add 79 to line beginning 
0797: 19 ADD HL, DE go to line beginning 
0798: 3D DEC A Number chars to line end-1 
0799: 28 2C JR Z,$07C7 Nothing more then stop 
079B: 54 LD D,H Address the line end 
079C: 5D LD E,L to DE 
079D: 2B DEC HL Address line end-1 
O79E: C5 PUSH BC Save number 
O79F: ES5 PUSH HL Save source 
O7A0: D5 PUSH DE Save destination 
O7A1l: CD AD 07 CALL S$0O7AD Copy (HL)->(DE) in VDC-RAM 
O7A4: 01 00 08 LD BC,$0800 Now add Offset for 
QO7VA7: El POP HL RAM attribute in VDC 
O7A8: 09 ADD HL,BC' To source address 
O7A9: EB EX DE, HL note in DE get 
O7AA: El POP HL destination address 
from Stack 
O7AB: 09 ADD HL, BC also add the offset 
O7VAC: Cl POP BC get number 
O7JAD: C5 PUSH BC and save again 
O7AE: CD 53 0 CALL $0953 Announce HL as update 
O7B1: ED 78 IN A, (C) Get actual contents 
07B3: EB EX DE, HL Exchange destination and 
goal address 
O7B4: FS5 PUSH AF Save the found 
out character 
07B5: CD 53 CALL $095 Announce HL again 
as update 
O7B8: Fl POP AF Get back the found 
out character 
07B9: ED 79 OUT (C),A copy in destination 
address 
QO7BB: EB EX DE, HL Goal and destination 
addresses again ok. 
O7BC: Cl POP BC Get number back 
O7BD: 2B DEC HL Decrement source pointer 
O7BE: 1B DEC DE Decrement destination 


pointer 
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ene Nn a 


O7BF: 
07CO0: 
O7C1l: 
07C2: 
07C4: 
07C7: 


OB 
78 
Bl 


20 EQ 


2A 
C3 


11 24 
05 09 


A,B 
Cc 


Decrement the counter 
Make sure Register- 
pair BC is exactly zero 


NZ,$07AD then copy next character 
HL, ($2411) else get Cursor address, 


$0905 


output a blank character 


KKK KEKKKKEKEKKEKKKKEKKKKKKKKKKKKEKKKK Brase character in Cursor 


O7CA: 
O7CD: 


O7CE: 
O7CE: 
07D0: 
O7D1: 


O7D4: 
07D5: 
07D8: 
O7D9: 


KEKKKKKKKKKEKKKKKKKKKEKEKEKKKKKKKKKKK 


O7DC: 
O7DF: 
O7E1: 
O7E4: 
O7E5: 
O7E8: 
O7EA: 


O7ED: 


O7FO: 
O7F2: 


CD 


DS 


54 
5D 
23 
CD 


El 
id 
19 
C3 


11 
3E 
2A 
BC 
CA 
38 
21 


11 


06 
CD 


C7 0C 


BO 08 


4F 00 


05 09 


62 OF 


17 


13 24 


05 07 
1A 
EO 06 


30 07 


18 
OA 08 


LD 
LD 
LD 
CP 
JP 
JR 
LD 


LD 


LD 
CALL 


$0CC7 


DE, $004F 
HL, DE 
$0905 


DE, S$0F6 
A,$17 


position 


Get Cursor address and 
number of characters 
Save line beginning 

to stack 

actual Cursor position 
copy to DE 

Increment source by one 
(HL) ->(DE) BC times = 
erase one character 
Line beginning to HL 
And add 79 for 
line end 
Output a blank char to 
end line 


i 


Insert a line on 
cursor line 


Pointer to table 
Line 23 in accu 


HL, ($2413) Get line /column 


H 

Z,$0705 
C,$0804 
HL, $06E0 


DE, $0730 


B, $18 
SO80A 


188 


Line 23 reached? 

Yes, then erase 23rd line 
smaller than 23, then jump 
Source address (third to 
last line ) 

Destination address 
(second to last line ) 

24 lines are to be copied 
Copy line (HL) to (DE) 
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O7F5: 3A 14 24 LD A, ($2414) Get line 


O7F8: B8 CP B Actual line reached? 
O7F9: 20 FT JR NZ,S07F2 No, then continue copying 
O7FB: CD C7 0C CALL $0CC7 Get cursor position and 

# characters 
O7FE: EB EX DE, HL HL: line beginning 


O7VFF: O01 50 00 LD BC,$0050 80 as beginning of the 
following lines 


0802: 18 3D JR $0841 Erase cursor line 

0804: 3C INC A This location won't be 
0805: BD CP L reached, or the cursor 
0806: CO RET NZ would be on status line 
0807: C3 2C 05 JP $052c Output text from DE 


KAKKKKKKKKKKKKKKKKKAAKKKKKKKKK Copy line (HL) to (DE) 


in VDC 
O80A: C5 PUSH BC Save number to stack 
O80B: E5 PUSH HL Save source addr to stack 
080C: D5 PUSH DE Save destination address 
to stack 


O80D: 01 50 00 #£LD BC,$0050 80 characters per line 

0810: CD BO 08 CALL S$08BO Copy line 

0813: 01 BO FF LD BC, SFFBO Adding 80's complement is 
used for subtraction 


0816: E1 POP HL Get destination address 
0817: 09 ADD HL, BC delete 80 characters 
0818: EB EX DE, HL and put into DE 

0819: El POP HL Get source address 
O81A: 09 ADD HL, BC subtract 80 

0O81B: Cl POP BC Get number 

081C: 05 DEC B Decrement the counter 
0O81D: C9 RET End of the routine 


KKKKKKKKKKAKKKKKKKEKKKKKKKKEKKKKKK =«~=Brase cursor line and move 
the rest up 


O81E: 3A 14 24 LD A, ($2414)Get line 


0821: FE 18 CP $18 Has line 24 been reached? 
0823: DO RET NC Yes, then quit 
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2s. 


CD C7 0C 


21 50 00 


EB 


CD BO 08 
C3 05 07 


CALL 


POP 


EX 


CALL 
JP 


$0CC7 


HL, $0050 
HL, DE 
DE, HL 
HL 


HL, $0780 
A 
HL, DE 


KHKKKKKKKKKKKKKKKKEKKKKEKKKKKKEKKK 


083D: 
O83E: 


083F: 
0841: 
0844: 
0845: 


El 
B3 


18 06 

3A 15 24 
oF 

16 20 


POP 
EX 


JR 
LD 
LD 
LD 


HL 
(SP) ,HL 


$0847 


Get cursor pos and 

number of chars 

Add 80 to the start address 
of the cursor line 

and note that in DE 

Push start address to 

the Stack 

Status line's start address 
Erase carry for subtraction 
Subtract the following 
line's start add 

Give the number of 
characters up to the 
screen's end to BC 

Get start address back 


Exchange source and 
destination address 
(HL)->(DE) in VDC-RAM 
Erase the last line before 
the stat line 


Put value in VDC-RAM 


Get return address 

and exchange with 
preceding return address 
Jump to routine 


A, ($2415) Get attribute 


E,A 
D,$20 


Load attribute into E 
ASCII-Code for blank char 


KRKKKKKKKKKKKKKKKKKKKKKKKKKKEK PULL (HL) in VDC-RAM with 


0847: 
0848: 
0849: 


O84B: 
084c: 


78 
Al 
28 OD 


ES 


D5 


LD 
AND 
JR 


PUSH 
PUSH 


A,B 
A 
Z,$0858 


HL 
DE 
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D,attribute with E 
(HL+800) will be filled. 
Test number's Hi-Byte 
and Hi-Byte against zero 
If zero, then only fill 
Lo-Byte 

Save destination address 
Save fill values 
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084D: 
O84E: 
O84F: 
0852: 
0853: 
0854: 
0855: 
0856: 


0858: 
0859: 
O85A: 


CS PUSH BC 

AF XOR A 

CD 5B 08 CALL $085B 
Cl POP BC 

D1 POP DE 

El POP HL 

24 INC H 

10 F3 DJNZ $084B 
719 LD A,C 
A7 AND A 

C8 RET Z 


KKEKKKKKKEKKEKKKEKEKEKKKKKKKKEKKKKEKE 


O85B: 
085C: 
085D: 
O85E: 
0861: 
0862: 
0865: 


0866: 
0867: 


O86A: 
O86B: 


F5 PUSH AF 

E5 PUSH HL 

D5 PUSH DE 

CD 6C 08 CALL $086C 
D1 POP DE 

01 00 08 LD BC, $0800 
El POP HL 

09 ADD HL, BC 
CD FE 08 CALL SO8FE 
F1 POP AF 

53 LD D,E 


KKEKEKKKKKKEKKKKKEKEKEKKKKKEKEKEKKKKKR 


086C: 
O86D: 
0870: 
0872: 
0873: 
0874: 
0875: 
0876: 


F5 PUSH AF 
CD 53 09 CALL $0953 
ED 51 OUT (C),D 
F1 POP AF 
3D DEC A 
C8 RET Z 
F5 PUSH AF 
3E 18 LD A,$18 
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Save number 

Accu=0 means 256 character 
Fill (HL) with D, 256 times 
Get number back 

Get fill values back 

Get destnation address back 
Increment Hi-Byte 

If bigger than 256 
character, then jump 

Test Lo-Byte against 

zero (nothing more to fill) 
and end, if done 


Save character <D> to <HL> 
<a> number of times 


number 

destination address 
Save fill character 

Save character D 

Get fill character 
Offset for RAM attribute 
Retrieve destination 
address 

and add Offset 

See if HL is a 
legitimate address 

If ok, get counter 

and attribute as fill char 


Save 
Save 


character <D> <A> times to 
<HL> in VDC-RAM 


Save counter to stack 
Announce HL as update 
and pass character 

Get number from stack 
Decrement the counter 
and end if full enough 
else save counter 
Announce Register 24 
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0878: 
O87B: 
087D: 
O87F: 
0881: 


0883: 
0886: 
0887: 


0889: 
O88B: 


O88C: 
088D: 
O88E: 
O88F: 
0890: 
0892: 
0895: 
0897: 
0899: 
089c: 
O89E: 


O89F: 
O8A0: 
08A3: 
O8A4: 
O8A5: 
O8A8: 
O8A9: 
O8AB: 
O8AC: 


O8AE: 
O8AF: 


CD 
ED 
E6 
ED 
3E 


CD 
Fl 
ED 


06 
4 


03 
09 
D5 
E5 
3E 
CD 
ED 
3E 
CD 
ED 
D1 


45 09 
78 
TF 
79 
1E 


45 09 


79 


00 


12 
45 09 
60 
13 
45 09 
68 


a 


CD 
DO 
C5 
CD 
Cl 
ED 
23 
18 


El 
B3 


FA 00 


593 09 


41 


F2 


$0945 
A, (C) 
S7E 

(C),A 
A, S15 


$0945 


BC 
SOOFA 
NC 
BC 
$0953 
BC 
(C),B 
HL 
$08A0 


HL 


(SP) ,HL 


(copy-bit) 

Get register's contents 
and mask copy-Bit 

Again into VDC memory 
Select register 31 

(Word count) 

and announce 

Get number from Stack 

and pass the number's 
remainder to VDC 

Set BC's Hi-Byte to zero 
and Lo-Byte with 

number's remainder 

add one 

add start address 

Save start address 

Save calculated stop addr 
Update Hi-Byte-Register 
announce 

and read the entire value 
Update Lo-Byte-Register 
announce 

and read the entire value 
Get the calculated 

stop address 

Get start address 

Compare HL with DE | 
Everything OK, no mistakes! 
Number to Stack 

Announce HL as Update 

Get number's remainder 
and error correction 

if calculated stop address 
and actual stop address are 
different 

Get return address 

and go one deeper in 

the Stack 





Abacus Software 





KKKKKKKKKKKEKKEKEKKEKKKKKKKKKKKKKK (HL) 


0O8BO0: 
O8Bl1: 
08B2: 
O8B4: 
O8B5: 
O8Bé6: 
08B7: 
O8B8: 
O8BB: 
O8BC: 
O8BD: 
O8BE: 


O8BF: 


O8CQ0: 
08C2: 
08C3: 
08C4: 
08C5: 


08Cé: 
08C7: 
08C8: 
08C9: 


O08CC: 
O8CF: 
O8D0: 
O8D1: 


O8D2: 
08D3: 
O08D4: 


O8D7: 


01 


OE 


CS 08 


F2 


D8 08 


00 08 


FE 08 


DE 
$08D8 


BC, $0800 


HL 
HL, BC 
DE, HL 


HL 
HL, BC 
SO8FE 


AF 
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—-> (DE) in VDC-RAM 
<BC> times 


Get number's Hi-Byte 
Test Hi-Byte against zero 
If zero, then number<256 
Save source address 

Save destination address 
Save number toStack 
erase Accu for 256 chars 
(HL)->(DE) <A> times 

Get number 

Get destination address 
Get source address 
Increment source address' 
Hi-Byte 

Increment destination 
address' Hi-Byte 

If more than 256 character, 
then get Lo-number 

see if it is zero 

end if it is zero 

else exchange source and 
destination addresses 
Save number to Stack 
Save destination address 
Save source address 
(DE)->(HL) in VDC-RAM 
<A> number of times 
Offset for RAM attribute 
Get source address 

add Offset 

Source address+Offset 
into DE 

Get destination address 
add Offset 

Test against memory 
boundary 

Get number 
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KEKKKKKKEKKEKKKKKKKKKKKKKKKKKKKK 


O8D8: 
O8D9: 


O8DC: 
O8DE: 
O8E1: 
08E3: 
O8E5: 
O8E7: 


O8E9: 
O8EC: 
O8EE: 


O8F0: 
O8F3: 
O8F5: 
O8F7: 
O8FA: 
O8FB: 
O8FD: 


KEKEKEKKKKERKEKKKEKKKKEKEKKKKKKKKKKKK 


O8FE: 
O8FF: 
0901: 
0902: 
0903: 


0904: 


F5 
CD 


3E 
CD 
ED 
F6 
ED 
3E 


CD 
ED 
3E 


CD 
ED 
3E 
CD 
Fl 
ED 
C9 


53 


18 
45 
78 
80 
719 
20 


45 
ont 
21 


45 
59 
1E 
45 


719 


09 


09 


09 


09 


09 


PUSH AF 

CALL $0953 
LD A,$18 
CALL $0945 
IN A, (C) 
OR $80 

OUT (C),A 


LD A, $20 


CALL $0945 
OUT (C),D 
LD A,$21 


CALL $0945 
OUT (C),E 
LD A,$1E 
CALL $0945 
POP AF 
OUT (C),A 
RET 


LD A, H 

CP $20 

RET Cc 

POP AF 

POP AF 
RET 


(DE) -> (HL) in 
VDC-accumulator 
<A> times 


Save number to stack 
Announce HL as 

Update address 

Announce register 24 
(copy bit) 

Get register's contents 
and set the copybit 
Report register to VDC 
Announce Register 32 
(Block-Start-—Hi) 

in VDC 

Pass Hi-address source 
Announce Register 33 
(Block-Start-Lo) 

in VDC 

and pass Lo-address source 
Announce Register 31 (Word 
count) 

and get number from stack 
Report VDC number 

End of routine 


Test if after adding the 
offset <HL> 
the RAM attribute changes 


Load Hi-Byte into accu 

and check the border 

If carry is set, <HL> is OK 
Get AF from stack 

Get return address from 

the Stack 

and a return occurs after 
CALL $085B 
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FOI CII CII I IOI IOC ICR I Kk i Output blank character to 
(HL) (VDC) 


0905: 16 20 LD D, $20 ASCII value for <space> 
0907: 3A 15 24 LD A, ($2415) Get attribute 


KAKKKKKAKKKKKKKKKKEKEKKKKKEKKEK Output character <D> with 
attribute <A> to (HL) 


O90A: E5 PUSH HL Save destination address 

090B: D5 PUSH DE Save character/attribute 

090C: 1100 08 LD DE,$0800 Add offset for RAM 
attribute 

O90F: 19 ADD HL, DE to destination address 

0910: 57 LD D,A Output attribute as 


the fill character 
0911: CD 1609 CALL $0916 <D> to (HL) 


0914: Dl POP DE Get character 

0915: El POP HL Get destination address 
0916: CD 53 09 CALL $0953 Use HL as update 

0919: ED 51 OUT (C),D and output char to (HL) 
091B: C9 RET Routine's end 


KAKKKKKKAKKKAKKKKKKKKKKKKKKKKKKKKKK = ~=Get <C>:attribute, 


<B>:character, to 
cursor position <DE> 


091C: CD AB 06 CALL $06AB Set cursor position <DE> 
091F: 2A1124 #£=LD HL, ($2411) Get cursor address 
0922: CD 33 09 CALL $0933 Get character/attribute 
0925: AF LD C,A <C> is attribute 

0926: C9 RET End of the routine 


KEKKKKKKEKKKKEKKKKKEKKKKKKKKKKK <B>:character, 


<C>:attribute, output 
to <DE> 


0927: C5 PUSH BC Save character/attribute 


0928: CD AB 06 CALL $06AB Set cursor position <DE> 
092B: 2A1124 #3=\LD HL, ($2411)Get Cursor address 
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O92E: 
O92F: 
0930: 
0931: 


KKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


0933: 
0934: 


0937: 
0938: 


093B: 
093C: 
093D: 
093E: 
0941: 
0942: 
0944: 


KRKEEKKKKKKKEKEKEKKKKKKKKKKKKKKRKRKRKEK 


0945: 
0946: 
0949: 
O94B: 
094C: 
094E: 


O94F: 
0951: 
0952: 


eat 
50 
719 


18 D7 


ES 
11 


19 
CD 


78 
El 
F5 
CD 
Fl 
ED 
C9 


F5 
01 
ED 
17 
30 
Fl 


ED 
0c 
C9 


00 08 


3D 09 


593 09 


40 


00 Dé 
78 


FB 


719 


POP. 
LD 
LD 

JR 


PUSH 
LD 
IN 
RLA 
JR 


BC 
D,B 
A,C 


$SO90A 


HL 


DE, $0800 


HL,DE 
$093D 


A,B 
HL 


AF 


BC, $D600 


A, (C) 


NC, $0949 


AF 


(C),A 


Cc 


Get character/atrribute 
<D> is a character 

<A> is an attribute 
Output character and 
attribute 


Get <A>:Attribute, 
<B>:character to (HL) 


Save address 
Add offset for 
attribute address 


Get values to 
VDC-address (HL) 
Attribute to <A> 

Get text address 

Save attribute 

Use (HL) as update 

Get attribute 

Get value to address (HL) 
Routine's end 


Wait forVDC-Status 


Save output register 

Start address VDC-Chip 

Get Status 

Shift Status-Bit into Carry 
Still not done -> jump 

Get the register from stack 
once more 

and choose register 

Point to S$Dé601 

and RETurn from routine 
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KKEKEKKKKKKKKKKKEKKEKKEKKKKKEKKEKEKEKKE HL as Update-address 


0953: 3E 12 LD A, $12 Announce Update-address Hi 

0955: CD 45 09 CALL $0945 

0958: ED 61 OUT (C),H Pass Hi-Byte 

095A: 3E 13 LD A,$13 Announce Update-address Lo 

095c: CD 45 09 CALL $0945 

O95F: ED 69 OUT (C),L Pass Lo-Byte 

0961: 3E 1F LD A, $1F Announce word count 
register 

0963: CD 45 09 CALL $0945 

0966: OD DEC C Pointer again to $D600 

0967: ED 78 IN A, (C) Get Status 

0969: 17 RLA Roll status into Carry 

096A: 30 FB JR NC, $0967 Still not done 

096C: OC INC C Yes now, pointer to $D601 

096D: C9 RET RETurn from subroutine 


KKKAKKKKKKKKKKKKKKKKAKKKKKKKKKEK Output character <D> to 
40-character screen 


0O96E: 42 LD B,D character to <B> 
O96F: CD 7F 0C CALL SOC7F ASCII code transform VIC 
0972: 2A 09 24 LD HL, ($2409) 80-character-address 


0975: 47 LD B,A character to <B> 

0976: 3A 1024 #3=\LD A, ($2410)Get character offset 
(Bit 7 1/0) 

0979: BO OR B Operate with character 

O97A: T7 LD (HL) ,A and write into RAM 

097B: 23 INC HL Increment pointer 

097C: 22 09 24 #=\LD ($2409),HL and mark this 

O97F: 11 FF 07 #42xXLD DE,SO7FF Add to offset 

0982: 19 ADD HL, DE for color RAM 

0983: 3A 0D 24 LD A, ($240D)Get character color 

0986: 7/7 LD (HL) ,A and set character color 

0987: 3A 0B 24 LD A, ($240B)Get cursor position 

098A: FE 4F CP S4F Last column? 

098C: 28 5F JR Z,S09ED Yes, then jump lines 

098E: 3C INC A else increment the 
column pointer 

0O98F: 32 0B 24 LD ($240B),A and mark the new position 

0992: C3 4A 0C JP SOC4A Represent line 
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KKEKEKKKKKEKRKKEKRKKKKKKKKKKKKK KKK Get character <B> and color 
<C> from Cursor pos (DE) 


0995: CD Cl 09 CALL $09C1 Define line/column (DE) 
0998: 2A 09 24 LD HL, ($2409) Get cursor address of 
80-character simulator 
O099B: 46 LD B, (HL) Get character in 
Cursor position 
099C: 1100 08 LD DE,$0800 Add offset for RAM 


attribute 
O99F: 19 ADD HL, DE 
0O9A0: 4E LD C, (HL) Get attribute in 
Cursor position 
O9A1: C9 RET End of routine 


KAKKKKKKEKKKKEKKEKKKEKKKKKKKKKKKER <B>: character,<C>:attribute 


to (DE) 
O09A2: C5 PUSH BC Save character/attribute 
O9A3: CDCl 09 CALL $09Cl1 Set Cursor position 
O9A6: Cl POP BC Get character/attribute 


O9A7: 2A 09 24 LD HL, ($2409) Get 80-character 
Simulator address 


O9AA: 78 LD A,B character into <Accu> 

O9AB: E6 7F AND STE Erase Bit 7 

O9AD: CB 71 BIT 6,C Test Bit 6 

O9AF: 28 02 JR Z,S509B3 Isn't set 

0O9B1l: cCé 80 ADD A, $80 Set Bit 7 (reverses 
character) 

09B3: 77 LD (HL) ,A and set character 


09B4: 11 00 08 LD DE,$0800 Add offset for 
RAM attribute 


0O9B7: 19 ADD HL, DE 
09B8: 71 LD (HL),C Define attribute also 
09B9: C3 4A 0C JP SOC4A Represent line 


KAKKKKAKKKKKKKKKKKKKKEKKKKEKEKKK = Def. line/column 


O9BC: 21 04 24 #=%\LD HL,$2404 address 40-character 


O9BF: CB F6 SET 6, (HL) 40-character bit set 
O09Cl: TA LD A,D Get line 
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09C2: 
09C4: 
09C5: 
09C6: 
09C8: 
09C9: 
O9CA: 


FE 19 

DO 

7B 

FE 50 
DO 

EB 

22 0B 24 


CP $19 Bigger than 24? 

RET NC Yes, then end (error) 
LD A,E Get column 

CP $50 Have reached column 80? 
RET NC Yes, then end (mistake) 
EX DE, HL line/column to HL 

LD ($240B),HL Set line/column 


KKKKKKKKKKKKKKKKKKKKKKEKKKKEKK New cursor position 


O9CD: 
O9D0: 


09D3: 


O9D6: 
09D7: 


O9DA: 


2A 0B 24 
CD CE 0C 


11 00 14 


19 
22 09 24 


C3 4A 0C 


LD HL, ($240B Get line/column 
CALL S$OCCE Calculate new cursor 
address 


LD DE,$1400 Add offset for 
80-character simulator 
ADD HL, DE to it 


LD ($2409),HL And note the 
adjusted address 
JP SOC4A Represent line 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK = Decrement line 


O9DD: 
0O9E0: 
O9EF1: 
09E2: 
09E3: 
O9E6: 
09E9: 
O9EB: 


3A 0C 24 
B7 

C8 

3D 

32 0C 24 
21 04 24 
CB F6 

18 EO 


LD A, ($240C) Get cursor line 


OR A Set Flags 

RET 2Z line 0! Don't do anything 
DEC A else decrement line pointer 
LD ($240C),A and note line 


LD HL, $2404 Set Bit 6 to $2404 

SET 6, (HL) as OK-character 

JR $09CD Calculate new 
cursor position 


KAKKKKKKKKKKKKKKKKKKEAKKKAKKEKKK =~ Column=0 Define column (+1) 


O9ED: 
O9EE: 
O9F1: 
O9F4: 
O9F6: 
O9F8: 


XOR A Accu=0 for first column 
LD ($240B),A and define column 

LD A, ($240C) Get line 

CP $17 Last line? 


JR Z,S0A02 Yes, then jump 
JR NC, S09FD Correct errors 
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O9FA: 
O9FB: 
O9FD: 
O9FF: 
OA02: 
OA05: 
OA08: 
OAQB: 
OAOD: 


OAOE: 
0OA11: 
OA14: 


OA17: 


OAI1A: 


OA1D: 
OA20: 
OA22: 
0A23: 


OA26: 
0A29: 
OA2C: 
OA2D: 
OA2F: 


3C 
18 
3E 
32 
21 
11 
O01 
ED 
EB 


11 
O01 
CD 
21 
11 
O01 


ED 
EB 


1il 


01 
3A 
77 
ED 
18 


E6 
17 
0c 
50 
00 
30 
BO 


31 
4k 
24 
50 
00 


30 
BO 


31 


ar 
OD 


BO 
B5 


24 
14 
14 
07 


1B 
00 
OB 
1c 
1c 


07 


23 


00 
24 


LDIR 


CALL 


LDIR 


LDIR 


A 
$09E3 
A,$17 
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Increment line by one 
and note 
Note line 23 (last 


($240C),A line) 


HL, $1450 
DE, $1400 
BC, $0730 


DE, HL 
DE, $1B31 
BC, $004F 
$0B24 
HL, $1C50 
DE, $1C00 
BC, $0730 
Execute 
DE, HL 
DE, $2331 


BC, $004F 


Second line's start address 
First line's start address 
Copy 22 lines 

Scrolling 

Destination address 

as source 

Last line's 2nd character 
Fill 79 characters 

Fll last line with 

fill characters 

Second line's address 
beginning (attribute) 

lst line's address 
beginning (attribute) 
Scroll 22 lines 

scrolling in color RAM 

lst char of last line to HL 
2nd character of last line 
(color RAM) 

Fill 79 characters 


A, ($240D) Get color for color RAM 


(HL) ,A 


set 


and also fill the rest of the line 


SO 9E6 


KKKEKKKKKKKEKKKEKRKEKRKEEKKKEKEKKKKKKEE 


OA31: 
0OA34: 
0OA35: 
OA36: 
0A37: 
OA3A: 


3A 0B 24 


B7/ 
C8 
3D 


32 0B 24 


18 


91 


LD 
OR 


OK set 


Move cursor left 


A, ($240B) Get column position 


A 
Z 
A 


Set Flags 
First column? Then end 
else move cursor left 


($240B),A Store the new column 


$09CD 
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Calculate cursor address 
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KKKEKKKKEKKEKKKEKKKKKKKKKKEKKKKKKKE 


OA3C: 
OA3F: 
OA40: 
0OA42: 


OA44: 


3A 0B 24 
3c 

FE 50 

20 F3 


C9 


LD 
INC 
CP 
JR 


RET 


Move cursor right 


A, ($240B) Get column 


A 


$50 


NZ,$0A37 No, 


KKEKKKKKKKKKKKKEKKEKKEKEKKKKEKKKRKKKK 


OA45: 
OA46: 


AF 
18 EF 


XOR 
JR 


A 
$0A37 


KKEKKKKKKKKKKEKKEKKKKRKEKEKEKKKKKKKKK 


OA48: 
OA4B: 
OA4C: 


OA4F: 


OA52: 
0A53: 
OA56: 
OA57: 
OA58: 
OA59: 
OADSA: 
OADB: 
OA5C: 
OA5D: 
OAD5E: 
OA60: 


21 CF OB 
E5 
CD C2 0C 


11 00 14 


19 

CD B3 OA 
719 

A7 

C8 

C5 

E5 

54 

5D 

13 

ED BO 
18 1c 


LD 
PUSH 
CALL 


LD 


HL, SOBCF 
HL 
$0CC2 


DE, $1400 
HL, DE 


$0AB3 
A,C 


201 


and move it right 

Have we reached the 

80th column? 

then store the 

new position 

else don't move the cursor 


Set column = 0 


Erase accu and 
store as column value 


Erase from cursor position 
to line end _ 


Return after 

simulating $SOBCF 

Find out cursor pos and 
rest of chars/line 

Add offset for 
80-character simulator 


Set fill characters 
rest of characters/line 
Set Flags 

No more characters 
Save number 

Save source address 
Register pair DE 
equals HL 

plus 1 

Erase up to line end 
Also erase attribute 





Abacus Software 


C-128 CP/M User's Guide 





KKKEKKEKKKKKKEKKKKEKKKKKKKKKKKKKEKE 


OA62: 


OA65: 
OAG66: 
OA69: 


OA6C: 
OA6D: 
OA6E: 


OA70: 
OA7T1: 
OA72: 
0OA74: 
OA75: 
OA76: 


OA77: 
OA78: 
OA79: 
OA7A: 
OA7B: 


OATE: 
OA81: 
OA82: 
OA83: 
0OA84: 
OA85: 
OA86: 
OA87: 


OA8A: 
OA8B: 


OA8D: 


21 0c 


11 7F 
2A 09 


ED 52 


28 3F 


CD 24 


O01 00 


3A OD 


ED BO 


OC 


1B 
24 


OB 


08 


24 


LD 
PUSH 


LD 
LD 


LD 
LDIR 


RET 


Erase from cursor pos to 
end of screen 


HL, $0COC Simulate SOCOC as 
return address 
HL for the stack 
DE, S1B7F The last line's last column 
HL, ($2409) Get cursor address 
80-character-Simulator 
DE, HL to DE, $1B7F to HL 
A Erase carry for subtraction 
HL, DE Find # of chars to 
end of screen 
M if negative, there is error 


DE, HL else give result to DE 

Z,S$0AB3 If only one char, then fill 

B,D else number 

C,E into register pair BC 

D,H and register pair DE 
(destination) 

E,L equals register pair HL 

DE plus one 

BC Push number to Stack 

HL Push source onto Stack 

S0B24 Fill text line with 
attribute 

BC,$0800 Offset for color RAM 

HL Retrieve source address 

HL, BC and add offset 

BC Get number of characters 

D,H Destination address equals 

E,L source address 

DE plus one 


A, ($240D) Get color for 
color RAM VIC 

and set color 

fill the rest up 
to screen's end 
End of the routine 


(HL) ,A 
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KRKEKEKEKKKEKEKKKKKKEKKKKEKRKKKKKKKRKKKEK 


OA8E: 


OA91: 
OA92: 


OA95: 


OA98: 
OA99: 
OAQA: 
OA9SC: 
OA9D: 
OA9E: 
OA9F: 
OAAO: 


OAAIL1: 
OAA3: 
OAA4: 
OAA7: 
OAA8: 
OAAB: 
OAAC: 
OAAD: 
OAAE: 
OAAF: 
OABO: 
OAB2: 


CD C2 0C 


21 4F 14 


28 17 


ED B8 


CD B3 OA 


O01 00 08 


ED B8 


DEC 
PUSH 
PUSH 


LDDR 
EX 
CALL 
POP 


HL, SOBCF 


HL 
$0CC2 


HL, $144F 


HL, DE 
A 

Z, S$0AB3 
D,H 
BE, L 

HL 

BC 

DE 


DE, HL 
SOAB3 
HL 

BC, $0800 
HL, BC 
BC 


KRKEKEKKEKKKKKEKKEKKKKEEKKKEKKKKKKKKE 


OAB3: 


OAB6: 
OAB8: 
OABS: 


3A 10 24 


C6 20 
77 
C9 


LD 


ADD 
LD 
RET 


} 


Insert one space at 
the cursor position 


Copy line from RAM 

to screen 

as return address for Stack 
Find out cursor pos and 
rest of character 

Add the last char of the 
first line 

to the cursor address 

last column? 

Yes, then jump 

Else destination goal is = 
source address | 
minus one 

Save number to stack 

Save destination address 
to Stack 

Move char behind Curs right 
HL:=Cursor pos 

Get fill characters 
Retrieve destination addr 
Add offset for color RAM 
to source address 

Retrieve number 
Destination address equals 
source address 

minus one 

Move color RAM also 

End of the routine 


($2410) + $20 -—> (HL); 
the fill characters 


set 


A, ($2410) read address $2410 


A, $20 


(HL) ,A 
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(Fill characters) 
Add $20=32 tp ot 
and store in (HL) 
RETurn from routine 
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KRHKKKEKKKEKEKKKKKKEKKKEKEKKKKKKKKKKEKK Erase a character in 


Cursor position 


QOABA: 21 CF 0B’_ LD HL,$OBCF Give SOBCF as return 
address to stack 
OABD: E5 PUSH HL insert extra 
OABE: CD C2 0C CALL $0CC2 Get cursor address/ 
| rest of characters 
OAC1: 110014 #=\LD DE,$1400 Add offset for 
80-character simulator 


OAC4: 19 ADD HL, DE to Cursor address 

OAC5: 3D DEC A Test number/character 

OAC6: 28 EB JR Z,$0AB3 If zero, then jump 

OAC8: 54 LD D,H else destination address = 

OAC9: 5D LD E, L source address 

OACA: C5 PUSH BC Save number 

OACB: E5 PUSH HL Save source address 

OACC: 23 INC HL Source address is equal to 
source address+l 

OACD: ED BO LDIR Erase char in cursor position 

OACF: EB EX DE, HL Cursor address to HL 

OADO: CD B3 OA CALL S$0OAB3 Set fill character 

OAD3: El POP HL Get source address 

OAD4: 01 01 08 #£=LD BC, $0801 Add offset for color RAM+1 

OAD7: 09 ADD HL, BC 

OAD8: Cl POP BC Get # of chars from Stack 

OAD9: 54 LD D,H Destination address equals 

OADA: 5D LD E,L source address 

OADB: 23 INC HL plus one 

OADC: ED BO LDIR Also move color RAM 

OADE: C9 RET ‘End of routine 


KKKKKAKKKKKKKKKKKKKKKEKKKKKKKKKEK =~ TInsert 1 line at 


cursor position 


OADF: 21 0C 0C LD HL,$OCOC Insert return address $0COC 


QOAE2: ED5 PUSH HL push to stack 

OAB3: 3A 0C 24 #2xLD A, ($240C) Get cursor line 
OAE6: FE 17 CP $17 line 23 (last)? 
OAE8: 28 31 JR Z,S0B1B Yes, then just erase 
OAEA: DO RET #£.NC Mistake, then end 
OAEB: CD C2 0C CALL §$0CC2 Get cursor address/ 
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OAEE: 


OAF1: 
OAF2: 


OAF3: 


OAF6: 
OAF7: 
OAF8: 
OAFB: 
OAFC: 


OAFE: 
OAFF: 
OBOO0: 


OB03: 
OBO06: 
QOBO7: 


OBO9: 
OBOA: 
OBOD: 
0OB10: 
0OB12: 
OB13: 
0OB14: 
OB15: 
OB16: 
0B19: 
OB1B: 
OBIE: 
0OB21: 


0OB24: 
OB27: 
0OB29: 
OB2A: 


OB2C: 


21 00 14 


19 
E5 


11 50 00 


21 80 1B 


ED 52 


21 2F 1B 


11 7F 1B 


ED B8 


Zi Ze 23 


11 7F 23 
ED B8 


O01 4F 00 
18 09 


21 30 1B 


11 31 1B 
O01 4F 00 


3A 10 24 
C6 20 


ED BO 


PUSH 
LDDR 


POP 


LDDR 
POP 


INC 


HL, $1400 


HL, DE 
HL 


DE, $0050 


HL, DE 
DE, HL 
HL, $1B80 
A 

HL,DE 


B,H 
Ci 
HL, $1B2F 


DE, $1B7F 
BC 


BC 
HL, $232F 
DE, §237F 


HL 

D,H 

E,L 

DE 

BC, $004F 
$0B24 
HL, $1B30 
DE, $1B31 
BC, $004F 


rest of characters 

Add offset for 

80-character simulator 

| Se Hs 

Save source address 

to stack 

Add offset for the 
beginning of the next 

to start address 

Result to (DE) 

Last line's address 

Erase carry for subtraction 
Find out number chars to 
end of screen 

Number comes from 

HL to BC 

last column of 
second-to-last line 

last column of last line 
Save number to stack 

Insert a line on 

the cursor line 

Retrieve number 

Color RAM's address 

Color RAM's address 

also move 

Get source address 

DE equals 
source address 
plus one 

79 characters 
Erase new line 
Only erase the 
line 

because cursor is 
on last line 


last 


A, ($2410) Get £fi11 character 


A, $20 
(HL) ,A 
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add 32 ( blank character) 
and set fill character 
fill the rest with 

fill characters 

and end the routine 
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KKEKEKEKKKKKRKEKKKEKKKEKERKEKRKEKKKKKEKE 


OB2D: 
0OB30: 
OB31: 
0OB34: 
OB36: 


0B38: 
0OB39: 


OB3C: 


OB3F: 
0OB40: 
OB41: 
OB44: 
OB45: 
OB46: 
OB49: 
OB4A: 


OB4C: 
OB4D: 
OB4E: 
OB4F: 
0B50: 
OB51: 
0OB52: 
0B53: 
OB55: 
OB58: 
0OB59: 
OBD5A: 
OB5B: 


OB5C: 
OB5D: 
OBD5E: 
OB60: 


21 
E5 
3A 
FE 
28 


DO 
CD 


21 


19 
E5 
11 
19 
EB 
21 
AF 
ED 


44 
4D 
EB 
D1 
C5 
E5 
D5 
ED 
O01 
El 


— 09 


EB 
El 


09 
Cl 
ED 
18 


OC OC 
OC 24 
17 
E3 


C2 0C 


00 14 


50 00 


80 1B 


52 


BO 
00 08 


BO 
B9 


PUSH 
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Erase cursor line 
and move screen 


HL,$OCOC Push return address S$0OCO0OC 
HL to stack 
A, ($240C)Get cursor line 


$17 Last line? 

Z,S$0B1B Yes, then only erase 
the last line 

NC On NC error and end 

$0CC2 Calculate cursor address/ 
rest of chars 

HL,$1400 Add offset for 
80-character simulator 

HL, DE to cursor address 

HL Save source address to stak 


DE,$0050 Add offset for start of 


HL, DE the following line 
DE, HL Result to DE 
HL,$1B80 address status line 


A Erase carry for subtraction 


HL, DE Find number of chars to 
: end of screen 

B,H number 

C,L to BC 

DE, HL Start address->HL 

DE Get Start addr cursor line 

BC Save number to stack 

HL Save source addres to stack 

DE Save goal address to stack 
and erase line 

BC,$0800 Add offset for color RAM 

HL to the 

HL, BC source address 

DE, HL Result to DE 

HL Get start address of 
second-to-last line of 
color RAM 

HL, BC also add offset 

BC Get number 
and also move color RAM 

$0B1B Erase last line 
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KEKEKKKKKKEKEKKKKKEKEKKKKKEKKREKKEKKE 


<B>:off, <C>:turned on Bits 
of character color 


OB62: 78 LD A,B Turned on Bits to <A> 

OB63: E6 70 AND $70 Erase Bit 7 und Bits 0-3 

OB65: 47 LD B,A Result to <B> 

OB66: 79 LD A,C Get the set Bits 

OB67: E6 70 AND $70 Also erase bits0,1,2,3,4,/7 

OB69: 4F LD C,A Result to C 

OB6A: 3A 0D 24 LD A, ($240D) Get attribute complement 

OB6D: 2F CPL set to 

OB6E: BO OR B erased characteristics 

OB6F: 2F CPL complement again and 

0OB70: B1 OR Cc set to set characteristics 

OB71: 32 0D 24 #=‘\LD ($240D),A Note the new attribute 

OB74: 17 RLA shift 6th Bit into 7th 

OB75: E6 80 AND $80 Reverse char and mask 

OB77: 32 10 24 #32x\LD ($2410),A Values $00 thru $80 as 
fill characters 

OB7A: C9 RET End of routine 


KKEKKKKKEKKKKKEKEKKKKEKKEKKKEKEKRKKKKKK 


OB7B: 78 LD A,B Get output chars to<Accu> 

OB7C: D6 20 SUB $20 Minus ASCII 32 

OB7E: FE 30 CP $30 smaller than 48? 

OB80: 38 OE JR C,$0B90 Yes, then jump 

OB82: OE 30 LD C,$30 else note 48 as the number 

0B84: CD E5 0C CALL S$0CE5 further coding 

OB87: D8 RET Cc Everything clear 

OB88: TE LD A, (HL) Get color 

OB89: OF RRCA /2 

OB8A: OF RRCA /2=/4 

OB8B: OF RRCA /2=/8 

OB8C: OF RRCA /2=/16 

OB8D: E6 OF AND SOF Masks Bits 4-7 

OB8F: 80 ADD A,B and add <B> to it again 

OB90: FE 10 CP $10 Transfer into the high 
value Nibble? 

OB92: 38 29 JR C,S$OBBD No, define new color 

0B94: FE 20 CP $20 Frame or background color ? 

0OB96: 38 OB JR C,$0BA3 Define background color 


Abacus Software 


KKEKEKEKKKKKRKEKKEKKKKEKKKKEKKEKKRKKKEKE 


OB98: 
OB9A: 
OB9D: 
OBAO: 
OBA2 : 


KKEKKKKKKKEKKKKEKKEKKRKEKEKKKKKKEKKKKSE 


OBA3: 
OBAS: 
OBA8: 
OBAB: 
OBAD: 


KKKKKKKKEKKKEKKKKKKKEKEKEKEKKKKKKEKK 


OBAE: 
OBB1: 
OBB2: 
OBB5: 
OBB6: 
OBB9: 
OBBA: 
OBBC: 


KKKEKKEKKKEKEKKKEKKEKKKKEKEKEKEKKKKKKKKK 


OBBD: 
OBBE: 
OBC1: 
OBC3: 
OBC4: 
OBC7: 
OBCA: 


K6 
32 
O01 
ED 
C9 


E6 
32 
O01 
ED 
C9 


3A 
4’] 
3A 
4F 
3A 
oi | 
E6 
C9 


4] 
3A 
E6 
BO 
32 
2A 
11 


OF 
OF 24 
20 DO 
19 


OE 24 


OF 24 


OD 24 


OF 


OD 24 
FO 


OD 24 
09 24 
00 08 
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Set frame color 


AND SOF Mask Bits 7-4 

LD ($S240F),A and note frame color 
LD BC, $D020 Address for frame color 
OUT (C),A Pass frame color to VIC 
RET End of routine 


Set background color for 
40-character 


AND SOF Mask Bits 4-7 

LD ($240E),A and note background color 
LD BC, $D021 Address for background color 
OUT (C),A Pass background color to VIC 
RET End of routine 


Get: <B>:background, 
<C>:frame, 
<D>:character color 


LD A, ($240E)Get background color 


LD B,A note in <B> 
LD A, ($240F)Get frame 
LD C,A Note in <C> 


LD A, ($240D)Get char color 


LD D,A Note in <D> 
AND SOF Mask unimportant bits 7-4 
RET End of routine 


Define new color 


LD B,A Code to <B> 
LD A, ($240D)Get old color 
AND SFO Get Bits 0 to 3 
OR B and new color 
LD ($240D),A Store new color 
LD HL, ($2409)Get cursor address 
LD DE, $0800 Add offset for 
RAM attribute 
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OBCD: 19 ADD 4HL,DE 
OBCE: 77 LD (HL),A Set new color 


KKEKEKKKKKRKKKKRKEKKKEKKEKKKKKKKKKKEKKE Copy Line from RAM 


to screen 


OBCF: 3A 04 24 LD A, ($2404)Marker for output 
OBD2: 47 LD B,A into <B> 
OBD3: B7 OR A Set Flags 
OBD4: FC 3C 0C CALL M,$0C3C If bit 7 is set, 

then pay attention 
OBD7: 3A 02 24 LD A, ($2402)Get column considered 


OBDA: B8 CP B equal to 80-char column? 
OBDB: 32 04 24 #4x\LD ($2404),A mark column 

OBDE: 20 2C JR NZ,$0C0C different, then jump 
OBEO: CD C2 0C CALL $0CC2 Calculate cursor position 
OBE3: 21 00 14 #=\LD HL,$1400 Add offset $1400 

OBE6: 19 ADD HL, DE 

OBE7: EB EX DE, HL and mark in DE 


OBE8: 2A 02 24 #4LD HL, ($2402) add the column 
being considered 


OBEB: 19 ADD HL, DE gives destination address 
OBEC: E5 PUSH HL save to stack 

OBED: 3A 0C 24 _ £4ZLD A, ($240C) Get line 

OBFO: 6F LD L,A and into <L> 


OBF1l: CD 70 0C CALL $0C70 Calculate line start 
for 40-char 


OBF4: EB EX DE, HL and note in DE 

OBF5: El POP HL Get address considered 
OBF6: E5 PUSH HL and save again 

OBF7: D5 PUSH DE save line beginning 

OBF8: 3E O01 LD A,$01 Copy 1 line 

OBFA: CD 27 0C CALL $0C27 Copy ($1400+SP) to screen 
OBFD: El POP HL 40-character address back 
OBFE: 01 00 E4 LD BC, $SE400 Offset for color RAM 
0CcO1: 09 ADD HL, BC Add offset 

OCO02: EB EX DE,HL and note in DE 

0C0O3: El POP HL Get source address 

0Cc04: O01 00 08 #=.LD BC,$0800 Offset screen color RAM 
0CO7: 09 ADD HL, BC Add to source address 
0C08: 3E 01 LD A,$01 1 line 

OCOA: 18 1B JR $0C27 and copy 
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KAKEKKKKKKKKKEKEKKEKEKKEKKEKKEKKKKKKKEKE Copy 40-character screen 


ococ: 2A 02 24 LD HL, ($2402)Get cursor address 
OCOF: 3A 08 24 LD A, ($2408) Number represented 


character/line 

0C12: E5 PUSH HL save Cursor address 

0c13: F5 PUSH AF save number/character 

0c14: 11 00 14 LD DE,$1400 Add offset for 80-character 
simulation 

0C17: 19 ADD 4HL,DE 

0c18: 1100 2C LD DE,$2C00 Videoram 

O0C1B: CD 27 0C CALL $0C27 Copy line 

OC1E: Fl POP AF Get number | 

OC1IF: El POP HL Get source address 


0c20: 1100 1C LD DE,$1C00 Add offset for color RAM 
0C23: 19 ADD HL, DE 
0c24: 11 00 10 LD DE,$1000 color RAM address 

(being considered) 


KAKKKKKKKKKKKKKKKKKKKKKKKKAKKKK (HL) -> (DE) 40 characters 
in screen <A> lines 


0C27: 32 03 FF LD (SFF03),A PCRC as configuration's 
byte 

OC2A: 01 28 00 LD BC,$0028 Copy 40 characters 

0C2D: ED BO LDIR (HL) -> (DE) 

OC2F: D5 PUSH DE Save destinationaddress 

0c30: 1128 00 LD DE,$0028 40-characters to be copied 

0C33: 19 ADD HL, DE add to source address 

0C34: D1 ; POP DE Get destination address 

0C35: 3D DEC A Decrement the counter 

0C36: 20 F2 JR NZ,$0C2A one more line to copy 

0C38: 32 01 FF LD (SFF01),A else PCRA as 
configuration's byte 

0C3B: C9 RET End of the routine 


KKEKKKKKEKKKKKEKKEKKEKKEKKKEKKRKKKKKEE Paying attention to column 
0c3C: 3A 0B 24 LD A, ($240B) Get column 


OC3F: D6 20 SUB $20 minus 32 
0c41: 30 O1 JR NC,$0C44 No transfers occur 
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0C43: 
0C44: 
0C46: 


0C49: 


AF 
E6 
32 


C9 


F8 
02 24 


A else erase accu (=0) 

SF8 Mask Bits 0-2 

($2402),A Note the column 
being considered 
End of the routine 


KRREKEKKKKKKKKKKKKKKEKKKKKKKKKKKKKE Copy line 


OC4A: 
OC4D: 
0c50: 


0C53: 
0c54: 
0C57: 


OC58: 


0C59: 
OC5B: 
OC5D: 
OC5F: 
0C60: 
0C62: 
0C63: 


OC66: 
O0C67: 
0C69: 


OCé6éC: 
OC6F: 


CD 
CD 
3A 


47] 
2A 
7D 


90 


38 
FE 
30 
4k 
06 
6C 
CD 


09 
18 
21 


22 


C9 


69 OC 
CF OB 
02 24 


OB 24 


OK 
28 
OA 
00 
70 OC 
03 
00 00 


06 24 


CALL $0C69 
CALL SOBCF 


LD 


LD 


CALL $0C70 


ADD 
JR 
LD 


LD 
RET 


Erase $2406 
Copy line 
A, ($2402) Get column being considered 


B,A Write in <B> 
HL, ($240B)Get line/column 


A, L column into <A> for 
subtraction 

B minus column being 
considered 

C,$0C69 too small, then erase $2406 

$28 too big--bigger than 40? 

NC,$0C69 then erase $2406 

C,A column into <C> 

B, $00 Erase Hi-Byte from BC 

L,H <L>=line 


And calculate line's 
Start address 


HL, BC add column 
SOC6C and note the address 
HL,$0000 Start address is 


lst Position 
($2406) ,HL note the Position 
End of the routine 


KKAEKKKEKKEKKKKEKKKKKKKKKKKKKKKKKKK line*40 + Offset 


0C70: 
0C72: 
0C73: 
0C74: 
0C75: 
0C76: 


26 
29 
29 
29 
54 
5D 


00 


LD 


H, $00 Erase Hi-Byte 
HL, HL *2 
HL, HL *2 


HL, HL *2=*8 
D,H write to DE 
E,L 
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0C77: 29 ADD 4HL,HL k2 

0C78: 29 ADD 4HL,HL *k2=*32 

0C79: 19 ADD HL, DE *32+*8 gives *40 
OC7A: 1100 2C LD DE,$2C00 Add offset from $2C00 
OC7D: 19 ADD HL, DE (beginning of text) 
OCT7TE: C9 RET End of the routine 


KAKKKKKKKKKKKKKKKKKKKAKKKKEKKEKKE Adapting ASCII-Code 


for 40-character screen 


OC7TF: 78 LD A,B character into <accu> 
0Cc80: FE 40 CP $40 Is it ASCII 64 (@) 
0C82: 28 3C JR Z,S$0CCO Yes, then Poke-Code=0 
0C84: D8 RET Cc If smaller, then end 
0Cc85: FE 5B CP S5B smaller than ASCII "Z"+1? 
O0C87: D8 RET Cc Yes, then return 

0C88: D6 40 SUB $40 Subtract 64 

OC8A: FE 20 CP $20 Is it an apostrophe? 
ocsc: 28 19 JR Z,SO0CA7 Yes, then code 

OCBE: 38 23 JR C,$0CB3 smaller than an apostrophe 
0c90: D6 20 SUB $20 minus ASCII 32 

0Cc92: FE 1B CP $1B small letter's boarder 
0C94: D8 RET Cc Smaller, then end 
0c95: FE 1B CP $1B compare again 

0C97: 28 11 JR Z,S0CAA small ASCII "{"? 

0c99: FE 1C CP $1c small "|"? 

OC9B: 28 10 JR Z,S$0CAD Yes, then code 

OC9D: FE 1D CP $1D small "™}"? 

OC9OF: 28 OF JR Z,S0CBO Yes, then code 

OCA1: FE IE CP S1E Is it "~"? 

OCA3: CO RET NZ No, then return 

OCA4: 3E 40 LD A,$40 else code 64 

OCA6: C9 RET End of the routine 


KKEKKKKKKKEKEKKKKKKKKKKKKKKKKKEKKKK ASCII—-Code 126 


OCA7: 3E 7E LD A,S7E 126 
OCA9: C9 RET End of the routine 
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a ee 


KAEKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKEK 


OCAA: 
OCAC: 


3E 73 
C9 


LD 
RET 


A,$73 


KRAKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


OCAD: 
OCAF: 


3E 5D 
C9 


LD 
RET 


A,$5D 


KKKKKKKKKKKKKKKKKKKKKKKKKAAK KKK 
OCBO: 3E 6B LD A, S6B 
OCB2: C9 RET 


KEAEKKKKEKKKKKKKKKKKKKKKKKKKKKKKE 


OCB3: FE 1c CP $1C 
OCB5: 28 06 JR Z, S0CBD 
OCB7: FE 1F CP S1F 
OCB9: CO RET NZ 
OCBA: 3E 64 LD A,$64 
OCBC: C9 RET 


KAKAKEKKKKKKKKKKKKKKKEKKKKKKKKKKKKEK 


OCBD: 
OCBF: 


3E 7F~ 
C9 


LD 
RET 


A,S$7F 


KAAKKKKKKKKKKKKKEKKKKKKKKKKKKKEKE 


0CCO: 
0CC1: 


AF 
C9 


XOR A 


ASCII-Code 115 
115 


End of the routine 


ASCII-Code 93 
93 


End of the routine 


ASCII-Code 107 


107 


End of the routine 


ASCII-Code 28 


ASCII 28? 

Yes, then assign 

ASCII 31? 

No, then end with Flag 
Else ASCII 100 

End of the routine 


Assign ASCII-Code 127 
127 
End of the routine 


Erase <accu> 


Erase <Accu> 
End of the routine 
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KEKEKKEKKKKKKEKKEKEKEKKKKKKKKKKKKKEKKK Calculate <C>:79-column 


0CC2: 
0cC5: 


OCC7: 
OCCA: 
OCCC: 
OCCD: 


KEKEKKKKKKKKKKKKRKKKKEKKKKKKKKRKKKK 


OCCE: 
OCCF: 
OCDO: 
OCD2: 
OCD3: 
0CD4: 
OCD5: 
OCD6: 
OCD7: 
OCD8: 
OCD9: 
OCDA: 
OCDB: 
OCDC: 
OCDD: 
OCDF: 
OCEQ: 
OCE2: 


OCE3: 


KKKEKKKKEKEKKKKKKKEKKKKEKKEKKKKKKKKK 


OCE4: 
OCE5: 
OCE8: 


2A 
18 


2A 
3E 
95 
4F 


45 
6C 
26 
29 
29 
29 
29 
54 
5D 
29 
29 
19 
EB 
68 
26 
19 
06 
3c 


C9 


78 


OB 24 
03 


13 24 
4F 


00 


00 


00 


LD 
JR 


LD 
LD 
SUB 
LD 


LD 


2A 0D FD LD 


D6 


30 


SUB 


and Cursorpos. 


HL, ($240B)Get line/column 


SOCCA 


continue 


HL, ($2413)Get line/column 


A, S4F 
L 
C,A 


A,B 


integer 79 

minus column 

Note in <C> (other numbers 
until 80) 


Calculate cursor position 
<H>:line, <L>:column 


<B> equals column 

<L> is now line 

Erase Hi-Byte 

*2 

*2 

*2 

*2=*16 

<DE> will be occupied by 
line times 16 

*2 

*2 gives *64 

plus *16 gives *80 

line times 80 into <DE> 
column into <L> 

Erase Hi-Byte 

and add line*80 

Erase Hi-Byte from <BC> 
<A>:=actual number of 
possible characters 
End of the routine 


ASCII-Decoding Cont'd 


character to <Accu> 


HL, (SFDOD) Table pointer 


$30 


Minus ASCII 48 "0" 
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OCEA: D8 RET C 
OCEB: BQ CP Cc 
OCEC: 3F CCF 

OCED: D8 RET C 
OCEE: 47 LD B,A 
OCEF: E6 OF AND SOF 
OCF1: 5F LD E,A 
OCF2 16 00 LD D,$00 
OCF4: 19 ADD 4HL,DE 
OCF5: 78 LD A,B 
OCF6: E6 30 AND $30 
OCF8: 47 ip B,A 
OCF9 C9 RET 
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Smaller, then end 

Else compare w/ <C> 

(value taken off) 

Negate Carry-Flag 

and end if greater than or = 
Else character into <B> 
Mask Bits 0-3 

Lo~Byte equals <Accu> 

and erase Hi-Byte 

add to table basis 
character again into <Accu> 
Mask Bits 6,7 and 0-3 
character again into <B> 
End of the routine 


KKKEKKKKREKKKEKKKKKKKEKEKKKKEKKK Ringing out the tone 


OCFA: 01 18 D4 LD 
OCFD: 2A 10FD LD 


OD00: ED 61 OUT (C),H 
OD02: OE 05 LD C,$05 
OD04: ED 69 OUT (C),L 


OD06: 2A 12 FD LD 


OD09: OC INC Cc 
ODOA: ED 61 OUT (C),H 
ODOC: OE O01 LD C,s01 
ODOE: ED 69 OUT (C),L 
OD10: 2A 14 FD LD 

0OD13: OE 04 LD C,$04 
0OD15: ED 61 OUT (C),H 
0OD17: ED 69 OUT (C),L 
0D19: cg RET 


BC,$D418 SID Register 24 
HL, (SFD10)Get Attack/Decay/Volume 


Total loudness 
strength/Filter 

Define Register 5 SID: 
Attack/Decay 


HL, ($FD12)Get Sustain/ 


Release/Frequency 

Register 6 of SID 

Define Sustain/Release 
Register 1 of SID: Frequency 
Define Frequency (HI) 


HL, ($FD14)Get turn off/on 


Register 4 of SID 

Turning on the tone 

Erase Bit to Sustain 

End of tone ringing routine 


RKAKKKKKKKKKKKKEKKKKKERKKKAEKEKK Will be copied to $1100 


OD1A: 1100: A9 O00 LDA #$00 
OD1C: 1102: 8D 00 FF STA SFFOO 
OD1F: 


Set configuration byte 
(all ROM) 


1105: 6C FC FF JMP (SFFFC) Reset the C-128-Mode 
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SS 


KKEKKKEKKKKKKKKKKKKEKKEKKEKKEKKEKKK Will be copied to $3000 


OD22: 
OD24: 
0D27: 
OD2A: 
OD2B: 
OD2D: 
0D30: 
0D33: 
0OD34: 
0D37: 
0D39: 
OD3B: 
OD3E: 
OD41: 
OD43: 
OD44: 
OD48: 
OD4B: 
OD4E: 
OD51: 
OD54: 
OD57: 


KAKKEKKKKKKEKKKEKEKKKEKEKKKKKKKKKKKEKKEKE 


OD5A: 


OD5D: 
OD5F: 
OD62: 
OD64: 
OD67: 
OD6A: 


OD6D: 
OD70: 


3000: 
3002: 
3005: 
3008: 
3009: 
300B: 
300E: 
3011: 
3012: 
3015: 
3017: 
3019: 
301C: 
301F: 
3021: 
3023: 
3026: 
3029: 
302C: 
302F: 
3032: 
3035: 


3038: 


303B: 
303D: 
3040: 
3042: 
3045: 
3048: 


304B: 
304E: 


8E 
8D 


00 
06 
11 


3E 
00 
DO 


O01 
21 
00 
00 
1A 
63 
31 
14 
15 
16 
17 
18 
19 
D7 


18 


20 
19 
21 
03 
BE 
78 


Bl 
BO 


FD 
30 


FF 


FF 


FD 


FF 
DO 


03 
03 
03 
03 
03 
03 
30 


F'D 


FD 


FD 
SL 
31 


31 
31 


LDA 


STA 
LDA 
STA 
LDA 
STA 
JSR 


STX 
STA 


#500 
SFDO06 
$3011 


#$3E 
SFF00 
SFFDO 


SFDO1 
$3038 
#5300 

SFFOO 
SDO1A 
#563 

#931 

$0314 
$0315 
$0316 
$0317 
$0318 
$0319 
$30D7 


SFD18 


$20 
SFD19 
$21 
SFD03 
$31BF 
$3178 


$31Bl1 
$31B0 
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Read a disk block 


Still aren't 

any errors 

Load the Block 
Interrupt handicap 
RAM and System I/0 

as configuration byte 
and turn on 2-80 
Erase decimal flag 
Set flag for vectors 
erased? 

Turn on ROM and System I/0 


Erase IMR im VIC-Chip 
Start up routine's Lo-Byte 
and Hi-Byte the same 
Lo-Byte as IRQ-Routine 
Hi-Byte as IRQ-Routine 
Lo-Byte as BRK-Routine 
Hi-Byte as BRK-Routine 
Lo-Byte as NMI-Routine 
Hi-Byte as NMI-Routine 
Continue on $30D7 


Read form Block 
(Track/Sector) and 
load in memory 


Copy Lo-Byte's 
destination address 

to $20 and 

Hi-Byte's destination addr 
to $21 

Get track 

and copy in disk command 
Make out of <Accu> 

ASCII “xx" 

Ten's place Track and 
one's place Track in 
command line 
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ODB2: 
ODB4: 
ODB7: 
ODB9: 


ODBC: 
ODBE: 
ODCO: 
ODC3: 


ODC6: 
ODC7: 


3090: 
3092: 
3095: 
3097: 


309A: 
309C: 
309E: 
30A1: 


30A4: 
30A5: 


A9 
8D 
A2 
20 


BO 
AO 
B9 
20 


88 
DO 


FF 


FE 


OD 
06 FD 
08 30 


00 
00 FF 
OF 
C9 FF 


EC 
06 
BC 31 
D2 FF 


F’/] 
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LDA SFD04 Get sector number 
STA $31BE Pass sector number for FSD 
JSR $3178 and wander in ASCII 
STX S$31AE Ten's place sector; also 
STA $31AD one's place in command line 
LDA SFD08 Test, if channel was opened 
BNE $3090 No, then jump to $3090 
STA SFF00 Set config byte on (ROM) 
LDX #S0B Define channel # 11 as 
JSR SFFC6 input channel 
BCS $30A7 On error to $30A7 
JSR SFFCC CLRCH; I/O normal again 
JSR $3131 Read Track/Sector 
JSR $3199 Channel 11 (#) as 

input channel 
LDY #$00 Y-Index to zero 
JSR SFFCF BASIN; get char from floppy 
STA ($20),Y¥ and put character in RAM 
INY ' next Byte 
BNE $307A End still not reached 
JMP SFFCC CLRCH; I/O normal again 
LDA #SFF Block can't be gotten 
-Byte $2C Skip; jump the 

following command 
LDA #$0D Recognition char for error 
STA SFD06 Set step 
JMP $3008 In Z-80 section again 


LDA 
STA 
LDX 
JSR 


BCS 
LDY 
LDA 
JSR 


DEY 
BNE 


#500 
SFF00 
#S0F 
SFFC9 


$3088 
#506 


Read data from file 


Set ROM and System I/O as 
config byte | 
Logical File number 15 
Error channel as 

output channel 

jump on error 

Output 6 chars 


$31BC,Y Get chars from table 


SFFD2 


$309E 
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Output chars through 
error channel 

Next character 

Output further characters 
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2 


ODC9: 30A7: 20 
Oopcc: 30AA: 2C 
ODCF: 30AD: AE 
ODD2: 30B0: 20 
ODD5: 30B3: 29 
ODD7: 30B5: DO 
ODD9: 30B7: AO 
ODDB: 30B9: 20 
ODDE: 30BC: 91 
ODEO: 30BE: C8 
ODE1: 30BF: DO 


cc 
OD 
BD 
ar 
OE 
D1 
00 
4F 
20 


F8 
21 


EA 
00 
EF 
00 


OF 
06 
08 
OF 


C3 
OF 
08 
08 


BA 


00 
1c 


68 
04 
B8 
31 
BD 


C0 
DO 
B7 


FF 
DC 
31 
31 


31 


DD 


DD 


FD 
30 


FF 


FD 


FF 


OA 


FF 


FF 


FF 


FF 


SFFCC 
SDCOD 
$31BD 
$314F 
#S0E 

$3088 
#$00 

$314F 


CLRCH; I/O normal again 
Test ICR 

Number of data blocks 
Get Data byte (Fast-mode) 
Test Bits 1-3 

Error step 

Index to zero 

Get Data byte (Fast-—Mode) 


($20),Y Put characters in RAM 


$30B9 
$21 


$30B0 
SDDO00 
#SEF 

SDDO00 


#S0F 
SFD06 
$3008 
#S0F 


SFFC3 
#50F 
SFDO08 
#508 


SFFBA 


#500 
SOA1C 


SFF68 
#$04 
#SB8 
#$31 
SFFBD 


SFFCO 
$30CF 
SFFB7 
A 
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increment the pointer 
Still not all the chars 
Increment pointer's Hi-Byte 
Decrement the block counter 
Further Blocks 

Get PRA CIA2 

Mask CLK-Bit 

and back again 

End of the routine 

Put Logical File number 15 
in $FD06 

Turn onZ-80 

Logical file number 
Erase carry as Flag 

Turn off the channel 
Logical file number 

Note logical file number 
Device address 

15 as secondary address 
SETLFS; Set the logical 
file parameters 

Turn off the 

floppy's fast mode 

Set both config. indices 
for SETBNK to zero 

Long File name 

File name's Lo address 
File name's Hi address 
SETNAM; set | 
Filename parameter 

OPEN the file 

error walk, then jump 
get Status byte I/0 
Shift Bit 7 in Carry 


Abacus Software 
a a ee 


OF25: 
0OK27: 
OE2A: 
OE2C: 
OE2E: 
OE2F: 
OE32: 
0OE34: 
OE36: 
OE38: 
OE3B: 
OE3D: 
OF40: 
OF41: 
OE44: 
OF 46: 
OF48: 
OR4A: 
OE4D: 
0OE50: 
OE52: 


KAKKEKKKKKKKKKKKKKKKKKKEKKEKKKKKKKKEK 


OE53: 
OF56: 


OE58: 
OE5B: 
OE5E: 
OE5SF: 
OF61: 
OE64: 
OE67: 
OE69: 
OER6B: 
OE6E: 


3103: 
3105: 
3108: 
310A: 
310C: 
310D: 
3110: 
3112: 
3114: 
3116: 
3119: 
311B: 
311E: 
311F: 
3122: 
3124: 
3126: 
3128: 
312B: 
312E: 
3130: 


3131: 
3134: 


3136: 
3139: 
313C: 
313D: 
313F: 
3142: 
3145: 
3147: 
3149: 
314¢c: 


BO 
2C 
70 
A9 
18 
20 
A9 
A2 


CA 
1c 
26 
OB 


C3 
0B 
08 
08 
BA 
00 
08 


68 
01 
BC 
31 
BD 
CO 
OF 


OA 


FF 


FF 


FD 


FF 


FF 
FF 


20 A4 31 JSR $31A4 


A0 


B9 
20 
88 
DO 
20 
20 
FO 
AY 
8D 
4c 


OD 


AB 
D2 


F7] 
cc 
89 
05 
0D 
06 
cc 


31 
FF 


FF 
31 


FD 
FF 


LDY 


LDA 
JSR 
DEY 
BNE 
JSR 
JSR 
BEQ 
LDA 
STA 
JMP 


#$0D 
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error walk, then jump 
Test the Fast-Serial-Bit 
Jump if it is set 

Logical File number 11 
Erase carry as flag 

Close file 11 

Logical file number 11 
Device # 8 

Secondary address 8 
SETLFS; Store File data 
LFN as not opened 

Erase on SFD08 

Both configuration indices 
are zero; SETBNK 

Length of the File name 
Lo-Byte of the Filenamen 
Hi-Byte of the Filenamen 
SETNAM; set addr Filename 
OPEN 11,8,8,"#"; open file 
error walk 

else End of the routine 


Read Track/Sector 
Set cmmnd channel to output 


Output 13 character 
"U1:8 0 tt ss<CR>" 


$31AB,Y Get chars from table 


SFFD2 


$3136 
SFFCC 
$3189 
$314c 
#$0D 

SFD06 
SFFCC 
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and output 

Decrement counter, 

jump if ther are more chars 
CLRCH; I/O is normal again 
Open cmmnd channel for read 
no error walk 

Set Error 

marker 

CLRCH; I/O normal again 
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ere eas nn 


KAKKKKKKKKKKEKKKKKKKKKKKKKKAKKEKK Wait until SDR 


OER71: 
OBR72: 
OE75: 
OE77: 
OB7A: 
OE7TC: 
OETF: 
OE81: 
OR84: 
OE85: 
OE88: 
OE8B: 
OE8D: 
OE90: 
OF91: 
OE94: 
OB95: 
0OE96: 
0OE97: 
OE98: 
OE99: 


314F: 
3150: 
3153: 
3155s 
3158: 
315A: 
315D: 
315F: 
3162: 
3105: 
3166: 
3169: 
316B: 
316E: 
316F: 
3172: 
3173: 
3174: 
S175: 
3176: 
SAT 7: 


AY 
8D 
68 
8D 
68 
A8 
68 
AA 
68 
40 


00 
10 
00 
08 
OD 
FB 
0C 


OD 
OD 
OF 
19 


00 


DD 


DD 


DC 


DC 


DC 
DD 


DO 


FF 


SEI 
LDA 
EOR 
STA 
LDA 
BIT 
BEQ 
LDA 
RTS 
LDA 
LDA 
LDA 
STA 
PLA 
STA 
PLA 
TAY 
PLA 
TAX 
PLA 


RTI 


#SDD00 
#$10 
SDD00 
#508 
SDCOD 
$315A 
SDCO0C 


SDCOD 
SDDOD 
#S0F 

$D019 


SFFOO 


(Serial Data Register) 
is done, then get data byte 


Prevent interruptions 
Get PRA CIA2 

Negate Clock management 
Negate run back 

SDR full/empty-Bit 

SDR isn't finished yet 
Wait until timer is low 
Get SDR (Serial Data Reg) 
End of the routine 

Erase Interrupt reg in CIA1l 
Erase Interrupt reg in CIA2 
Erase Interrupt register 
of the VIC-Chip 
Remanufacture 
configuration 
Remanufacture 

Y-Register 

Remanufacture 

X-Register 

Remanufacture accu 

End of the 
Interrupt-—Routine 


KKK KKKKKKKKEKKEKAKKKKKKKKKKKKKKKK Make out of<Accu> 2 


OF9A: 
OE9SB: 
OE9D: 


OR9E: 
OKAO: 
OBA2: 
OKA3: 
OFA5: 


OBA7: 


3178: 
3179: 
317B: 


3176: 
317E: 
3180: 
3181: 
3183: 


3185: 


D8 
A2 
38 


E9 
90 
E8 
BO 
69 


60 


30 


OA 


03 


F9 
3A 


#$30 


#S0A 


$3183 


S31L7¢ 
#$3A 
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ASCII-Codes 


Erase decimal flag 

Ten's place is now a "0" 
Set carry flag 

for subtraction 

Subtract ten (test) 

Too much subtracted 
else increment ten's place 
and do it again 

Correct error and add 
ASCII-Basis 

End of the routine 
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KKKKKKKKKKKAKKKKKKKKKKKKKKKKKKKKKK Check if there are errors 


OEA8: 
OBAB: 
OEAD: 
OEBO: 
OEB2: 
OEB5: 


OEB7: 


3186: 
3189: 
318B: 
318E: 
3190: 
3193: 


3195: 


20 
A2 
20 
BO 
20 
C9 


60 


D7 
OF 
C6 
F6 
CF 
30 


30 JSR $30D7 
LDX #S0F 
JSR SFFC6 
BCS $3186 
JSR $FFCF 


CMP #$30 


FE 


FF 


RTS 


KHEKKKEKKKEKKKKKEKKKKKKKKKKKKKKKKKKK 


OEB8: 
OEBB: 
OEBD : 
OECO: 
OEC2: 


3196: 
3199: 
319B: 
319E: 
31A0: 


20 
A2 
20 
BO 
60 


OA 31 JSR $310A 

OB LDX #S0B 

C6 FF JSR SFFC6 

F6 BCS $3196 
RTS 


KRAEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


OEC3: 
OEC6: 
OEC8: 


OECB: 
OECD: 


OECE: 
OED6: 
OEDE: 


31Al1: 
31A4: 
31A6: 


31A9: 
31AB: 


31AC: 
31B4: 
31BC: 


20 
A2 
20 


BO 
60 


OD 
20 
23 


D7 
OF 
C9 


F'6 


73 


38 
O01 


30 JSR $30D7 
LDX #S0F 

FF JSR $FFC9 
BCS $31Al1 
RTS 


73 20 74 74 20 
3A 31 55 30 AC 
00 00 00 30 55 


KKEKEKKKKKKKKKKKKKKEKKKKKEKEKKKKKKKEKK 


OEES5: 
OEE6: 
OFE8: 


(SFFDO) 78 


(SFFD1) A9 3E 


SEI 
LDA #53E 


in command channel 


error walk in channel 15 
Open command channel for 
reading; CHKIN 

error walk 

BASIN; get character 
Compare accu with "0" 
(then OK) 

End of the routine 


Prepare channel 11 (#) 
for reading 


Error walk in channel 11 
Set channel 11 

to input; CHKIN 

Error walk 

End of the routine 


Channel 15(command channel) 
to output 


Error walk in channel 15 
Channel 15 as output chanel 
Define through 
CKOUT~Routine 

Error walk 

End of the routine 


30 -ss tt 0 
00 8:1U0L. 
#....0U 


Will be copied to SFFDO 
(8502-Code) 


Prevent interruptions 


~ Set config byte to $3E 


(SFFD3) 8D 00 FF STA $FFO0 RAM and System I/O 
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OFEB: (SFFD6) AQ9 BO | LDA #$SB0O Turn on Z-80 

ORED: (SFFD8) 8D 05 D5 STA $D505 in MCR 

OEFO: (SFFDB) EA NOP Wait work 

OFF1: (SFFDC) 4C 00 30 JMP $3000 Jump in next routine part 
OFF4: (SFFDF) EA NOP Buffer 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKK Will be copied to SFFEO 


OEF5: (SFFEO) F3 DI Cut offInterruptions 
ORF6: (S$FFE1) 3E 3E LD A,$3E Set Configuration 
OFF8: (SFFE3) 32 00 FF LD ($FF00),A byte 

OEFB: (SFFE6) 01 05 D5 LD BC,$D505 Mode-Config.-Register 


OEFE: (SFFE9) 3E Bl LD A,S$B1 and turn on 8502 
OF00: (SFFEB) ED 79 OUT (C),A by setting Bit-0 
OFO02: (SFFED) 00 NOP Buffer work 


OF03: (SFFEE) CF RST $08 Jump into Z-80 part 


KEKKKKKEKKEKKKKKEKKKKKKKKKKKKKKKKKK Various tables 


OFO04: 9F FF BD 58 6F CE/00 OF Color table 
OFOC: 08 07 OB 04 02 OD OA OC adapted for a 
OF14: 09 06 01 05 03 OE/00 60 40-character screen 
OF1c: 30 18 0C 06 03 00 18 3C 

OF24: 66 00 00 00 00 00 00 00 

OF2C: 00 00 00 00 7F 00 60 30 

OF34: 18 00 00 00 00 00 1c 30 

OF3C: 30 60 30 30 1C 00 18 18 

OF44: 18 18 18 18 18 00 38 OC 

OF4c: 0c 06 0C OC 38 00 OO 1B 

OF54: 2A 66 00 00 00 00 00 00 

OF5D: 00 00 00 41 7F 00 00 F2 

OF64: 5B 39 01 4E 65 37 06 03 

OF6C: 1E 07 OB 68 4B 34 17 O1 

OF74: 44 62 2D 18 12 0B 63 59 

OF7C: 31 17 00 OB 59 72 2B 18 

OF84: OF 63 00 4F 2B 05 4C 68 

OF8C: 2D 1716 69 49 25 17 13 

OF94: 45 68 29 18 17 07 OC 68 

OF9C: 4B 34 13 OF 05 4B 70 31 

OFA4: 31 0D OD 08 08 6C/0D 3F 
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OFAC: 
OFB4: 
OFBC: 
OFC4: 
OFCC: 
OFD4: 
OFDC: 
OFE4: 
OFEC: 
OFF4: 
OFFC: 


TF 


3E 


00/00 


OE 
OC 
OA 
0C 
OE 
11 
03 
08 
OB 


is 
11 
OF 
11 
00 
04 
08 
OD 
02 


7E 
05 
03 
01 
01 
03 
05 
09 
OD 
O1 
07 


BO 
OA 
08 
06 
06 
08 
OA 
OE 
00 
06 
OC 


OB 
OF 
OD 
OB 
OB 
OD 
OF 
O01 
05 
OB 


00 
14 
12 
10 
10 
12 
02 
06 
OA 
10 


00 
04 
02 
00 
02 
04 
07 
OB 
OF 
04 


O01 
09 
07 
05 
07 
09 
0c 
10 
03 
09 
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MMU Register layout 
adapted Sector numbers 
according to 

different sectors. 

In this manner 

the layout of the disk will 
be optimized 


10.1 
10.2 
10.3 
10.4 
10.5 
10.6 
10.7 
10.8 
10.9 
10.10 
10.11 
10.12 
10.13 
10.14 
10.15 


Chapter 10 


The CP/M commands 


COPYSYS 
DATE 
DEVICE 
DIR 
DIRSYS 
DUMP 

ED 
ERASE 
FORMAT 
GENCOM 
GET 
HELP 
HEXCOM 
INITDIR 
KEYFIG 


10.16 
10.17 
10.18 
10.19 
10.20 
10.21 
10.22 
10.23 
10.24 
10.25 
10.26 
10.27 
10.28 
10.29 
10.30 
10.31 


LIB 
LINK 
MAC 
PATCH 
PIP 
PUT 
RENAME 
RMAC 
SAVE 
SET 
SETDEF 
SHOW 
SID 
SUBMIT 
USER 
XREF 
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10.1 CopysyYs 


This command normally copies the system tracks and CP/M3.SYS toa 
diskette. 


Input format: COPYSYS 
Description: 


To boot from a CP/M 3.0 diskette, both the system tracks and the 
CPM+.SYS file must be present. Disks that are not used to boot CP/M do 
not require either. With the '128, it's quite easy to change the actual format 
of the COPYSYS command, since the system can be transferred by copying 
with PIP. If you use the COPYSYS command, a message is displayed 
telling you that this command is nonfunctional. 
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10.2 DATE 


Displays the date and time, and allows them to be changed. 


Input format: DATE 
DATE CONTINUOUS 
DATE SET 


DATE mmilddlyy hh:mm:ss 


This program lets you enter the date and time into your system or to recall 
that information. 


Uses: 
If the DATE command is entered, the date and time are displayed: 
Tue 05/06/85 23:49:17. 


This is a static display. To display the time continously, enter the command 
DATE with the option C. The time is displayed until you press any key. 


The date and time may be entered in either of two different ways. The SET 
option is used to enter the values for each, one after the other. The other 
method looks like this: 


DATE 05/06/85 23:49:17 


Enter a time that is a few seconds ahead of actual time. Then press the space 
bar when the times are sychronized to activate the new time.. 


If your computer does not have a battery-powered clock (the '128 does 
not), the time must be re-entered each time the computer is turned on. This 
minor annoyance can be minimized by placing the DATE SET command in 
the PROFILE. SUB file. 


By entering DATEC, you can avoid having to use the DATE command 


followed by the C option. The source file for the DATE program is saved on 
the system diskette. Observing its operation may teach you a lot. 
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10.3 DEVICE 
Displays and alters the devices used to access the peripherals. 


Inputformat, #8 DEVICE NAMES 
a DEVICE VALUES 
DEVICE LST:=xxxxxx [NOXON, 1200] 
DEVICE CONOUT : =XXX,XXX 
DEVICE CON: [PAGES] 
DEVICE CON: [COLUMNS=nn, LINES=mm] 


Description: 


This program is used to display and assign input and output devices to the 
operating system. The names of the three logical devices are: CON:, LST:, 
and AUX:. A logical device can also be set to several peripherals. For 
instance, data may be sent to a printer and the monitor at the same time. 
DEVICE also controls the # rows/columns displayed on the monitor. 


Uses: 


The names of the output devices are predetermined by the Commodore 
CP/M system. If DEVICE is entered with the NAMES option, a list with the 
names and baud rates of the individual is displayed. If DEVICE VALUES is 
entered, the following is displayed: 


Current Assignments: 


CONIN: = KEYS 

CONOUT: = 40 COL (or 80 COL) 
AUXIN: = Null device 
AUXOUT: = Null device 

LST: = PRT1 


CONIN: and CONOUT: refer to console input (or keyboard input), and 
console output (or keyboard output.) CON: alone refers to both input and 
output. LST: stands for LIST DEVICE and refers to the printer. Using 
the PAGE option, you can find out how many rows and columns are 
presently being displayed by the monitor. 


If a specific baud rate is entered in the format [nnn], the data-exchange 
with the particular peripheral is executed at this speed. The command 
DEVICE displays DEVICE NAMES and VALUES together. 
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A>DEVICE 


Physical Devices: 

I=Input, O=Output, S=Serial, X=Xon-Xoff 

KEYS NONE I 80COL NONE 0 40COL NONE 0 
PRT1 NONE 0 PRT2 NONE 0 6551 9600 IOSX 
RS232 300 IOSX 


Current Assignments: 


CONIN: = KEYS 
CONOUT: = Null Device 
AUXIN: = Null Device 
LST: = PRT1 


Enter new assignment or hit RETURN 


Note: The command DEVICE replaces the STAT DEV: command in CP/M 


3.0. (The STAT command of CP/M 2.2 was divided, since it was too 
complex). 
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10.4 DIR 


Displays specified file names of the directory. 


Input format: 

Resident command: DIR 
DIR A: 
DIR DATEI.xXxx 
DIR AB*.* 


Transient command: DIR [option] 
DIR DATEI.xxx [option] 
DIR AB*.* [option] 


Description: 


DIR disaplays the filenames on a diskette or hard disk drive. Wild-card 
characters may be used to filter the filenames. The wild card characters are * 
and ?. If no option is chosen, all non-system files will be marked for the 
corresponding user area. 


The DIR transient command is much more versatile. It displays files with 
date stamps, can alphabetize them, etc. An explanation of the various 
options, which must be entered in brackets, follows. 

If the system files are in the directory, the following message will appear: 


SYSTEM FILE(S) EXIST 
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DIR 
DRIVE=ALL 
DRIVE=A 
EXCLUDE 
FF 

FULL 
LENGTH=n 
MESSAGE 
NOPAGE 

RO 

RW 

SIZE 

SYS 
USER=ALL 
USER=95 
USER= (3,5) 
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Function 

display user-defined file attributes 

display data with time and date 

display non-system files 

display files in all drives 

display files in drive A 

display all files except the one specified 

send form feed to printer 

display files with complete description 

send form feed after n lines 

scrolling display of disk drives/USER areas 
scrolling display 

display read-only files 

display read/write files | 

display size of each file 

display only system files 

display files of all USER areas 

display files of the USER area that was specified 
display files of the USER areas that were specified 
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10.5 DIRSYS 


This command, lists files specified as SYSTEM files. 


Input format: DIRSYS 
DIRSYS B: 
DIRSYS Filename.xxx 
DIRSYS AB?*.* 


Descripti 


With the DIRSYS command, all SYSTEM files can be diplayed. This may 
be accomplished using the DIR with options, but DIRSYS is much faster, 
since it is a Resident command. The command can be abbreviated as DIRS. 


The DIRSYS command also tells you whether any "normal" files exist 
(CP/M refers to them as non-system files). If there are no system files, this 
message is displayed: 

No File 
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10.6 DUMP 


Displays non-text files in hexadecimal and ASCII format. 
Input format: DUMP 


DUMP Filename.xxx 
Description: 
DUMP displays the contents of a file in both hexadecimal and ASCII format. 


To display ASCII only text files you can use the TYPE command. But 
COM, REL, or OVR files, for example should be examined using DUMP . 


The lefthand columns contain the relative address of the file contents. The 
middle columns contain the hexidecimal contents. The righthand columns 
contain the corresponding ASCII characters. A character whose value 
cannot be displayed is indicated by a period (.). You can also send the 
display to the printer by pressing <CONTROL> P. 
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10.7 ED 
The CP/M editor. 
Input format: ED<filename> ( .<file type>) 
Description: 
The built-in editor may be practical for very short texts, but it has a bad 
operational reputation—for good reason. The editor is extremely 
complicated and is difficult to operate, even for experienced users. 
When the file name is entered, ED checks if it presently exists. If it does, the 
file is loaded into the ED buffer and a backup file is created. If the file does 
not presently exist, the following message is displayed: 
Enter Input file 

After you enter the file name, it displays: 

Enter Output file 
To exit the editor, even when saving the data, simply enter the command E. 


Here's a list of all of ED's commands: 


__ Command Fuetion 


nA append nv lines from original file 
to memory buffer 

OA append file until buffer is one half 
full 

#A append file until buffer is full (or 
end of file) 

B, —B move cursor position to the 
beginning (B) or bottom (-B) of 
buffer 
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nc, -nC move cursor position n characters 
forward (C) or back (-C) through 
buffer 

nD, -nD delete nm characters before (-D) or 
from (D) the cursor position 

E save new file, return to CP/M 


Fstring <CONTROL Z> find character string 


H save new file, re-edit, use new 
file as original file 

I<RETURN> enter insert mode 

Istring<CONTROL> Z insert string at cursor position 


Jsearch str<CONTROL> Z ins_str<CONTROL>Zdel_to_str 


switch strings 


nk, -nK delete nm lines from the cursor 
position 

nL, -nL, OL move cursor position 7 lines 

nMcommands execute commands n times 

n, -n move cursor position n lines and 
display that line 

n: move to line 2 

:ncommand execute command through line n 


n string<CONTROL> Z extended find string 


O return to original file 
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nP, -mP 


R<CONTROL> Z 


Rfilename<CONTROL> Z 
Sdel. string<CONTROL>Z 


nT, -nT, OT 

U T -U 

V, -V 

OV 

nw 

OW 

nX 
nxfilename<CONTROL> Z 
0X<CONTROL> Z 
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move cursor position 23 lines 
forward and display 23 lines at 
console 


abandon new file, return to 
CP/M-86 


read X$$$$$$$.LIB file into 
buffer 


read filename into buffer 

insert substitute string 

type n lines 

upper-case translation 

line numbering on/off 

display free buffer space 

write 7 lines to new file 

write until buffer is half empty _ 


write or append nv lines to 


X$$$$$$$.LIB 


write n lines to filename; append 
if previous X command applied 
to same file 


delete file X$$$$$$$.LIB 


Oxfilename<CONTROL> Z delete filename 


nZ 


wait 2 seconds 


Note: the cursor position points to the character currently being 
referenced in the edit buffer. Use a <CONTROL> Z to separate 
multiple commands on the same line. 
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10.8 ERA (SE) 


Resident command to erase one, several, or all files on a diskette. 
Input format: 


Resident command: ERASE 
ERASE Filename .xxx 
ERASE AB?*.* 


Transient command: ERASE Filename.xxx [CONFIRM] 

Description: 

The ERASE command will erase a specified file, if that file is not a 
read-only file, or write-protected. You can erase a file only within the same 


USER area. If you specify a filename containing * or ?, you are asked to 
confirm the command by entering Y or N. 


Uses: 


ERASE may be abbreviated to ERA. The option CONFIRM can be 
abbreviated to C. 
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10.9 FORMAT 

Formats a floppy diskette. 
Input format: FORMAT 
Description: 


All diskettes used with the C-128 must be formatted properly. All previous 


data on a diskette is lost during formatting. FORMAT is not a standard CP/M 
program. 


Uses: 


After a diskette is FORMATed, you are asked the question format 


another disk? This allows you to format several diskettes, one after 
the other. 


Note: Several diskette formats are possible with the Commodore 128. 
Because of this, when you format, you will be asked whether you want to 
format the diskette as single-sided or double-sided. With the FORMAT 
command, diskettes may only be formatted in drive A. 
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10.10 GENCOM 


Generates a special version of CP/M 3.0. 
Input format: GENCOM 
Description: 


Is used by programmers to adapt a CP/M version, or to integrate additional 
program-routines in CP/M. 
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10.11 GET 


Gets data from a file instead of the keyboard. 
Input format: 
GET CONSOLE INPUT FROM FILE Filename.xxx 


GET CONSOLE INPUT FROM CONSOLE 
GET FILE Filename .xxx [NOECHO] 


Description: 


The GET command enables you to read data from a particular file instead of 
the keyboard. 


Uses: 

In the first example, CP/M retrieves commands from a file named 
Filename.xxx. If there are no more commands in the file, CP/M reverts to 
keyboard input. 

The the second example, CP/M retrieves commands from the keyboard. 

In the third example, CP/M retrieves commands from the keyboard.The 


(NOECHO) option ispecifies that the commands are not displayed on the 
screen. 
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10.12 HELP 


Provides information about the individual CP/M commands, with examples. 


Input format: HELP 
HELP Keyword 
HELP Keyword (abbreviation) 
HELP Keyword [option] 
HELP (abbreviated) Keyword 
HELP [option] 


Description: 


The HELP .COM command displays information about the CP/M commands 
and programs. HELP cannot be used while a program is running. HELP 
[EXTRACT] creates a HELP . DAT file that can be edited with an editor. 


Uses: 


The HELP command displays information based on keyword. The keyword 
may be abbreviated to two characters. If the information is longer than 23 
lines, the display stops when the screen is filled. To continue, simply press 
the space bar. If <CONTROL> P is activated beforehand, all information is 
sent to the printer. 


The available keywords are: 


C128 CP/M COMMANDS CNTRLCHARS COPYSYS DATE DEVICE 
DIR DUMP ED ERASE FILESPEC GENCOM 
GET HELP HEXCOM INITDIR KEYFIG LIB 
LINK MAC PATCH PIP (COPY) PUT RENAME 
RMAC SAVE SET SETDEF SHOW SID 
SUBMIT TYPE USER XREF 


242 


Abacus Software C-128 CP/M User's Guide 
10.13 HEXCOM (Additional Utilities) 


Creates a COM file that can be executed. 


Input format: HEXCOM<Filename> 


HEXCOM 
Description: 


This command converts a HEX file to a COM file. You do not have to specify 
the file extension, since HEXCOM adds . HEX to the filename. 


Don't use HEXCOM to change RMAC .HEX files into COM files. . HEX files 


created by RMAC (the relocatable code-producing assembler),must be 
processed by the LINK command. 
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10.14 INITDIR 


Prepares a diskette's directory to accept a time and date stamp. 


Input format: INITDIR B: 
ription: 


CP/M 3.0 lets you mark files with a time and date stamp. This information 
is stored in a separate part of the directory. Because of this, the directory 
must be prepared by using INITDIR. The nature of the file types may be 
controlled with the command SET. 


Uses: 


It is best to use INITDIR on a new diskette, since timestamps require 
diskette space. If you are using INITDIR on a diskette containing data, 
make a backup of that diskette first. If INITDIR were interrupted, the data 
on that diskette may be lost. 
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10.15 KEYFIG 


KEYF IG enables you to reassign the values of each key, and lets you define 
the function keys. 


Input format: KEYFIG 
Description: 


The KEYFIG command is menu-oriented. KEYFIG provides you with 
HELP screens. The command lets you assign any ASCII value to any key, 
using <SHIFT> or <CTRL>. It also lets you define colors, and lets you 
assign special functions to keys (such as rebooting of the system, etc.). 
Finally, KEYF IG allows you to define function keys such as the HELP key. 
Thus this command proves to be very helpful. 
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10.16 LIB (Additional Utilities) 

Produces and changes a "library" of subprograms. 

Input format: LIB Filename .XXX [OPTIONS] 

Description: 

Many compilers and the assemblers RMAC and MACRO-80 use the method 


of subprograms, which usually have the extension REL or IRL. Listing of 
important subprograms in a library is done by using LIB. 
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10.17 LINK (Additional Utilities) 


Produces a file which can be executed from subprogram modules. 
Input format: LINK Filename,Filename2,Filename3,...[OPTIONS] 
Description: 


Many compilers and the assemblers RMAC and MACRO-80 create REL or 
IRL programs. LINK lets you combine these files into a single CoM file. 
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10.18 mac (Additional Utilities) 


A macroassembler in 8080-mnemonic and restricted for Z-80 and 
6502-mnemonic. 


Input format: MAC Filename 
MAC Filename S$OPTIONS 
Description: 


The macroassembler creates three files. The extension of the source 
program is ASM. The extension of the library is LIB. The assembled 
program code (object code) has the extension HEX, the symbol schedule 
with the extension SYM, and the printable listing the extension PRN. Options 
are marked with a dollar sign ($) instead of the usual brackets. 


More detailed information about the MAC assembler is found in Chapter 7. 
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10.19 PATCH 


Installs changes in CP/M 3.0 or other programs 
Input format: PATCH Filename 


PATCH Filename n 
D sntion: 


You can use the PATCH command to make program changes in existing 
CP/M transient programs. This process is known as patching. PATCH 
automatically enters the changes in the specific program, and if several 
patches are made, they are identified with reference numbers (n). The 
reference numbers start with 1. 
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10.20 PIP 


Copies files and transfers files between peripherals. 


Input format: PIP 
PIP Destination file=Source file [options] 
PIP B:=Filename .XXX 
COMBFILE .w&t=TEXT1.TXT, TEXT2 . TXT... 
PIP AB1?*.*=AB2?*.* [option] 


Description: 


PIP is easily the most powerful command in CP/M. It lets you copy files, 
not only from one diskette to another, but also between various user areas. 
It can combine several files into one, protect files, convert text to uppercase, 
renumber lines, and change the 8th bit to zero. Chapter 6 contains more 
detailed information on PIP. 


Uses: 


PIP can be used with or without options. The PIP prompt is an asterisk is 
displayed (*). The Destination file as an exact duplicate of the Source file, 
unless changed by an option. The brackets must immediately follow the 
filename without spaces. If several versions of a file are to be copied, or if 
there are unknown characters in the filename, you may use ? for unknown 
characters or * for all characters. The default disk drive is the logged drive . 


Here are some examples: 


PIP B:=Filename.xxx[V] 


This particular command copies the file Filename.xxx from drive A to drive 
B, and verifies that copy. 


PIP B:=Filename.* [(V] 


This command copies a series of files with the name Filename, regardless of 
extension, from drive A to B. 
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PIP B=*.*[V] 


This copies all files of a diskette to the other drive. The copy is also 


verified. 


PIP FILENEW.XXX=FILEOLD .XXX 


This command reproduces the file FILEOLD as FILENEW on the same 


diskette. Both files will then exist on that diskette. 


PIP COMBFILE.TXT=TEXT1.TXT, TEXT2.TXT,... 


All specified files will be copied into one file, COMB . TXT. 


PIP B:[G] =TEXT.TXT[G5] 


The command copies TEXT . TXT to drive B, form drive A, user area 5. 


Options: 


A 


Dn 


Archive function. Copies only those files that were created 
or changed since the latest archive update. The time and 
date stamp function must be set. 


Confirm. CP/M will check after each file to confirm that it 
may be copied. 


Erase after n columns. PIP will erase all characters 
positioned after n columns in the file. Used for text files 
only. 


Echo text on the monitor. The content of the files being 
copied are displayed on the screen. Not to be used with the 
parameter N. Used for text files only. 


Form feed. Some printers require a <CTRL> L to feed the 
next page. If this is not the case, use F to erase them. 
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Gn 


N2 


Pn 


Get a file from user area n. This option must be positioned 
directly after the first filename and should be the only thing 
written there. For example: 


PIP B: [G5]=TEXT.TXT.TXT[G1] 


will copy the file TEXT . TXT from USER area 1 to USER 
area 5. 


Transfer hexadecimal data. This option should always be 
entered if you want to copy HEX files. PIP will then check 
the file content for correct INTEL format. 


Ignore the end-of-file marker in HEX files. Enter this 
option for every file except the last one. Along with the 
option I, the option H is entered by PIP. For the last file 
use the parameter H: 


PIP Filename .HEX=PROG1.HEX[1I],PROG2.HEX[H] 
Suppress the display of filenames during copying. 


Change all capital letters to lowercase. Use this option only 


for text files, and be sure to use the parameter 2 for 
WordsStar files. 


Numbers the lines of a file continuously. The numbers 
start with 1 in the first line, and increase by 1 for each line. 
The numbers can have a maximum of 6 digits. Unused 
digits will appear as spaces. The numbers will be followed 
by acolon and a space. Do not use with the options E or N. 
Choose parameter Z for WordStar files. 


Numbers the lines for a BASIC program. 


Transfer of object-files. Used to transfer non-text and 
non-COM files. Do not use for text files. 


Sets page length. Default is 60 lines per page. Enter the F 


option to erase any <CTRL> L (form feed) markers that 
may exist. Use only with text files. 
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Qxxxx<CTRL>Z 
Quit copying after this character string. PIP will copy a 
file up to and including the specified character string. Use 
the command in command lines so that the string will not 
be changed to capital letters. Use only for text files: 


PIP 
CON :=TEXT .TXT [Hamlet ] 


If command is one line, the entry appears in capital letters. 


R Copy system files. These files are not listed by DIR, and 
PIP does not usually copy them. R will cancel these 
restrictions. 

Sxxxx<CTRL>Z 


Start at this character string. PIP will begin copying at this 
character string. Be sure to write the command in two 
lines, otherwise the text is changed to all capital letters. 
Use only with text files. 


Tn Set tab. Normally CP/M operates with an 8-space tab. This 
is not the case for hardcopies, and thus the tab must be 
defined. n specifies the number of spaces the tab is set. 
Use with text files only. 


U Capitalize. Changes all lower case characters to upper case. 
Use only with text files. When used with WordStar, be 
sure to use the option Z. 


Vv Verify. This parameter verifies files copied by PIP. It 
ensures that the new file is identical to the old one. 


W Write over read-only files. These files may normally be 
read, but not changed or erased. The W option causes these 
files to be erased without recall. 


Z Erase the 8th bit. ASCII uses only seven bits, and the 8th 
bit is utilized by many applications programs for various 
functions. The Z option is not necessary when copying 
ASCII data, such as COM: or LST:. 
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10.21 PUT 


Redirects data intended for the monitor to printer or a file. 
Input format: 


PUT CONSOLE OUTPUT TO FILE Filename .xxx [option] 
PUT PRINTER OUTPUT TO FILE Filename.xxx [option] 
PUT CONSOLE OUTPUT TO CONSOLE 
PUT PRINTER OUTPUT TO PRINTER 


ripti 


Normally CP/M sends data to the monitor. The PUT command allows you 
to write the data to a file or the printer. 


Uses: 


The first examples direct CP/M to open a file and write all output intended 
for the screen or printer to that file. Once the operation is ended, CP/M will 
return to its normal mode. The last two examples terminate the PUT 
command. For example, these could be used if you had a SUBMIT file 
using the PUT command, and should subsequently return to normal mode. 


The display of the data on the monitor can be terminated with the command 


ECHO. The option FILTER changes all control characters into printable 
form. 


The option SYSTEM causes the commands to be saved along with the data 
in the new file. 
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10.22 REN (AME) 


Renames an existing file. 


Input format: RENAME 
RENAME Filename2 .xxx=Filenamel .xxx 
RENAME AB?*2=AB?*1 


Description: 


The command RENAME does not change the data, only the filename. The 
content of the file will remain intact. 


Uses: 


If the file is not on the default drive A, you may specify the drive along with 
the RENAME command. Should the RENAME command be entered without 
options, the program asks which drive to use. 


If, during the RENAME operation, the old file is to be overwritten, then the 


program asks you whether that old file should be erased. If you answer no, 
the RENAME operation 1s halted. 
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10.23 RMAC (Additional Utilities) 


Macroassembler for programming in assembly language. Creates the 
relocatable object code, which must be processed by LINK. 


Input format: RMAC Filename 


RMAC Filename $ options 


The RMAC macroassembly produces three files. The source program is 
listed with the extension ASM, and the library with the extension LIB. The 
assembled program code is listed with the extension REL, the symbol 
schedule with SYM and the printable listing with PRN. The command LINK 
creates a file from the REL file which can be executed. 


Uses: 


Instead of the usual brackets, dollar signs ($) are used to indicate options. 
The option must be preceded by a space. 
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10.24 SAVE 


Saves the data (program) currently in memory onto a diskette. 

Input format: SAVE 

Description: 

The SAVE command lets you create a file on diskette. To use this command, 


you enter SAVE <RETURN>. SAVE then makes preaparation so that CP/M 
will be able to save the subsequent program. 


Uses: 


SAVE is automatically placed at the upper end of the memory, and returns 
control to CP/M after it is located there. Next enter the program name of the 
program to be saved. After it is loaded, SAVE will regain control and you 
are asked for the filename and the starting and ending addresses. 
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10.25 SET 


Sets the file attributes, enables the input of a password, assigns disk labels, 
and chooses the format of the time and date stamps. 


Input format: SET Filename .xxx[option] 
SET AB?*. *[option] 
SET B: [option] 
SET[option] 


Description: 

The SET program serves several purposes. Its most important tasks are: 
setting the archive mode and declaring diskettes or drives as read-only or 
write-only. 

Each diskette can be assigned its own name, and passwords can be assigned 
to the whole diskette and/or individual files. The diskette labels may be 
displayed using SHOW. 

Also, such files may be equipped with time and date stamps. 


SET filename.COM [SYS] allows the file to be accessed from any user 
area. 


For more detailed information, see Chapter 5. 
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10.26 SETDEF 


Displays and defines the order of disk drive search and turns the screen 
output on or off. | 


Input format: SETDEF 
SETDEF B: 
SETDEF [option] 
Descanso: 


Normally, transient programs are started by typing the name and pressing 
<RETURN>. If the program is to be loaded from a different drive, a drive 
must be specified along with the name. 


For instance, if you always work on drive B and your CP/M system files 
are on drive A, you can tell CP/M on to search drive B first. This is known 
as specifying a search order. This way you can tell CP/M to seach first on 
drive A, then on drive C:, and only then on the default drive. 
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10.27 SHOW 


Displays the options of a diskette. 


Input format: SHOW[option] 


SHOW B:[option] 
Description: 


SHOW displays the technical data of a diskette directory. The disk's free 
space, the number of entries in the directory, the number of active USER 
areas, and the chosen USER area number, the total diskette capacity, block 
size, sector size, and number of sectors per track, and the name of a diskette 
are displayed. 


SHOW is actually a useful addition to DIR. With SHOW you can also find out 
if the diskette and/or individual files are protected by passwords. 


Options are: 


SPACE 
LABEL 
USERS 
DIR 

DRIVE 
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10.28 srpD (Symbolic Interactive Debugger) 


A debugging program to load, change, and test assembler programs. 


Input format: SID | 
SID Filename.xxx 
SID Filename.xxx TEXT .SYM 


Description: 


SID lets you load COM and HEX files into memory, and then view and edit 
them. The program may be run with enhanced control if a SYM file is 


loaded. SID can also change executable programs into INTEL 8080 
mnemonics. 


Unfortunately this program is available only on the Additional Utilities 
diskette. SID is a further development of the DDT program in CP/M 2.2. 
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10.29 SUBMIT 


Enables command input from a file, instead of the keyboard 

Input format: SUBMIT filename, parameter I parm 2...,.parm n 
Description: 

A series of commands usually entered through the keyboard can also be 


written to a SUBMIT file, and then be executed automatically. When the file 
of commands is completed, control is returned to CP/M. 


With each power-up, CP/M checks a file called PROFILE.SUB and 
automatically executes any commands in that file (if the file 1s found). 


Uses: 
To write a SUBMIT file with your text program, simply write the desired 


commands each on a line. The extension for this file must be 
SUB—otherwise it not recognized by SUBMIT. 
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10.30 USER 


Changes the current user area. 


Input format: USER 


USER n 
Description: 


Each diskette may be divided into 16 different user areas. Thus you can 
have separate user areas for various jobs, in which the necessary files and 
programs are stored. System files, located in the user level 0, may be read 
from any user area. 


Uses: 


The current user area is displayed in the CP/M prompt (1B>), and may be 
changed with the USER command. If you do not specify the new area, the 


program will ask you for it. The program SHOW will display the active user 
areas. 
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10.31 XREF (Additional Utilities) 


Creates a cross-reference listing for assembler programs. 


Input format: XREF Filename 
XREF Filename $P 


Description: 


The MAC and RMAC assemblers produce an alphabetical list of all symbols 
used and their values in a program. XREF is more practical, since in 
addition to the symbols it displays the program lines those symbols are 
found in. XREF requires SYM files and PRN files. XREF produces an 
assembler list called <Filename>. XRF (similar to <Filename>.PRN) and 
includes a detailed listing of all symbols present, and the line numbers at 
which those symbols appear in the program. 
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Appendix A: ASCII and Number Conversion Table 


Hexa- 

Decimal decimal Binary ASCII 
0 00 000 0000 NUL 
1 01 000 0001 SOH 
2 02 000 0010 STX 
3 03 000 0011 ETX 
4 O04 000 0100 EOT 
5 05 000 0101 ENQ 
6 06 000 0110 ACU 
7 07 000 0111 BEL 
g 08 000 1000 ES 
9 09 000 1001 HT 

10 OA 000 1010 LF 
11 OB 000 1011 VI 
12 OC 000 1100 FF 
13 OD 000 1101 CR 
14 OF 000 1110 SO 
15 OF 000 1111 SI 
16 10 001 0000 DLE 
17 11 001 0001 DC1 
18 12 001 0010 DC2 
19 13 001 0011 DC3 
20 14 001 0100 DC4 
a 15 001 0101 AAK 
22 16 001 0110 SYU 
23 17 001 0111 ETB 
24 18 001 1000 CAN 
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Hexa- 

Decimal fecimal Bi ASCII 
25 19 001 1001 EM 
26 1A 001 1010 SUB 
27 1B 001 1011 ESC 
28 1c 001 1100 FS 
29 1D 001 1101 GS 
30 1E 001 1110 RS 
31 1F ~ 001 1111 VS 
32 20 010 0000 SP 
33 21 010 0001 ! 
34 22 010 0010 
35 23 010 0011 # 
36 24 010 0100 $ 
37 25 010 0101 % 
38 26 010 0110 & 
39 27 010 0111 
40 28 010 1000 ( 
41 29 010 1001 ) 
42 2A | 010 1010 * 
43 2B 010 1011 + 
44 2C 010 1100 ; 
45 2D 010 1101 - 
46 2E 010 1110 
47 2F 010 1111 / 
48 30 011 0000 0 
49 31 011 0001 1 
50 32 011 0010 2 
51? 33 011 0011 3 
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Hexa- 

Decimal decimal Binary ASCII 
79 4F 100 1111 O 
80 50 101 0000 P 
81 51 101 0001 me) 
82 52 101 0010 R 
83 53 101 0011 S 
84 54 101 0100 T 
85 55 101 0101 U 
86 56 101 0110 V 
87 57 101 0111 W 
88 58 101 1000 Xx 
89 59 101 1001 Y 
90 5A 101 1010 Z 
91 5B 101 1011 [ 
92 5C 101 1100 \ 
93 5D 101 1101 
94 55 101 1110 A 
95 SF 101 1111 7 
96 60 110 0000 
97 61 110 0001 a 
98 62 110 0010 b 
99 63 110 0011 C 

100 64 110 0100 d 

101 65 110 1101 e 

102 66 110 0110 f 

103 67 110 0111 g 

104 68 110 1000 h 

105 69 110 1001 i 
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Control Character 


<CONTROL> A 
<CONTROL> B 


<CONTROL> C 


<CONTROL> E 


<CONTROL> F 
<CONTROL> G 


<CONTROL> I 
<CONTROL> H 
<CONTROL> J 


<CONTROL> K 


<CONTROL> M 
<CONTROL> P 
<CONTROL> Q 
<CONTROL> R 


<CONTROL> S 


Appendix B: CP/M Control Codes 


Function 


moves cursor one character to the left 


moves cursor from beginning to end of command 
line and back without affecting command 


stops executing program when entered at the 
system prompt or after <CONTROL> S$ 


forces a physical carriage return without sending 
command to CP/M 


moves cursor one character to the right 


deletes character at current cursor position if in the 
middle of a line 


same as the TAB key 

delete character to the left of cursor 

moves cursor to the left of the command line and 
sends command to CP/M 3. Line feed, has same 


effect as carriage return 


deletes character at cursor and all characters to the 
right 


same as Carriage return 
echoes console output to the list device 
restarts screen scrolling after a <CONTROL> S 


retypes the characters to the left of the cursor on a 
new line; updates the command line buffer 


stops screen scrolling 
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<CONTROL> U updates the command line buffer to contain the 
characters to the left of the cursor; deletes current 
line. 

<CONTROL> W recalls previous command line if current line is 


empty; otherwise moves cursor to end of line. 
<CONTROL> J,-M,-R,-U and <RETURN> 
update the command line buffer for recall with 
<CONTROL> W. 


<CONTROL> X deletes all characters to the left of the cursor. 
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Appendix C: PIP Command 


Options = Function 


A 


Dn 


Gn 


Archive function. Copies only those files that were created or 
changed since the latest archive update. The time and date 
stamp function must be set | 


Confirm. CP/M will check after each file to. confirm that it 
may be copied 


Erase after n columns. PIP will erase all characters 
positioned after n columns in the file. Used for text files only 


Echo text on the monitor. The content of the files being 
copied are displayed on the screen. Not to be used with the 
parameter N. Used for text files only 


Form feed. Some printers require a <CTRL> L to feed the 
next page. If this is not the case, use F to erase them 


Get a file from user area n. This option must be positioned 
directly after the first filename and should be the only thing 
written there. For example: 


PIP B: [G5])=TEXT.TXT.TXT[G1] 


will copy the file TEXT . TXT from USER area 1 to USER 
area 5 


Transfer hexadecimal data. This option should always be 
entered if you want to copy HEX files. PIP will then check 
the file content for correct INTEL format 


Ignore the end-of-file marker in HEX files. Enter this option 
for every file except the last one. Along with the option I, 
the option H is entered by PIP. For the last file use the 
parameter H: 


PIP Filename .HEX=PROG1.HEX[I],PROG2.HEX[H] 
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error A 


K 


L 


N2 


Pn 


Suppress the display of filenames during copying 


Change all capital letters to lowercase. Use this option only 


for text files, and be sure to use the parameter Z for 
WordsStar files 


Numbers the lines of a file continuously. The numbers start 
with 1 in the first line, and increase by 1 for each line. The 
numbers can have a maximum of 6 digits. Unused digits will 
appear as spaces. The numbers will be followed by a colon 
and a space. Do not use with the options E or N. Choose 
parameter Z for WordStar files 


Numbers the lines for a BASIC program 


Transfer of object-files. Used to transfer non-text and 
non-CoM files. Do not use for text files 


Sets page length. Default is 60 lines per page. Enter the F 
option to erase any <CTRL> L (form feed) markers that may 
exist. Use only with text files 


Qxxxx<CTRL>Z 


Quit copying after this character string. PIP will copy a file 
up to and including the specified character string. Use the 
command in command lines so that the string will not be 
changed to capital letters. Use only for text files: 


PIP 
CON :=TEXT.TXT [Hamlet ] 


If command is one line, the entry appears in capital letters 
Copy system files. These files are not listed by DIR, and 


PIP does not usually copy them. R will cancel these 
restrictions 


Sxxxx<CTRL>Z 


Start at this character string. PIP will begin copying at this 
character string. Be sure to write the command in two lines, 
otherwise the text is changed to all capital letters. Use only 
with text files 
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Tn 


Set tab. Normally CP/M operates with an 8-space tab. This is 
not the case for hardcopies, and thus the tab must be defined. 
n specifies the number of spaces the tab is set. Use with text 
files only | 


Capitalize. Changes all lower case characters to upper case. 
Use only with text files. When used with WordStar, be sure 
to use the option Z 


Verify. This parameter verifies files copied by PIP. It 
ensures that the new file is identical to the old one 


Write over read-only files. These files may normally be read, 
but not changed or erased. The W option causes these files to 
be erased without recall 


Erase the 8th bit. ASCII uses only seven bits, and the 8th bit 
is utilized by many applications programs for various 
functions. The Z option is not necessary when copying 
ASCII data, such as COM: or LST: 
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sYs 


DIR 


ARCHIVE=OFF 


ARCHIVE=ON 


F1=ON | OFF 
F2=ON | OFF 
F3=ON | OFF 
F4=ON | OFF 


CREATE=ON 


ACCESS=ON 


C-128 CP/M User's Guide 


Appendix D: SET Command 


Attributes 
sets the file attribute to Read-Only 
sets the file attribute to Read-Write 


sets the file attribute to SYS; means that the file is 
available from any USER area 


sets the file attribute to DIR 
means file has not been backed up (archived) 


means that the file has been backed up (archived). 
The Archive attribute can be turned on by SET or 
by PIP when copying a group of files with the 
PIP [A] option. SHOW and DIR display the 
Archive option 


turns on or off the user-definable file attribute F1 
turns on or off the user-definable file attribute F2 
turns on or off the user-definable file attribute F3 
turns on or off the user-definable file attribute F4 


turns on CREATE time stamps on the disk in the 
default or specified drive. To record the creation 
time of a file, the CREATE option must be turned 
on before the file is created 


turns on ACCESS time stamps on the disk in the 
default or specified drive. ACCESS and CREATE 
options are mutually exclusive; only one can be in 
effect at a time. If you turn on the ACCESS time 
stamp on a disk that previously had CREATE time 


Stamp, the CREATE time stamp is automatically 
turned off 
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UPDATE=ON turns on UPDATE time stamps on the disk in the 


default or specified drive. UPDATE time stamps 
record the time the file was last modified 


PROTECT=ON turns on password protection for all the files on 
the disk. You must turn on password protection 
before you can assign passwords to files 


PROTECT=OFF Disables password protection for the files on your 
disk 


PROTECT=READ The password is required for reading, copying 
writing, deleting or renaming the file 


PROTECT=WRITE The password is required for writing, deleting or 
renaming the file. You do not need a password to 
read the file 


PROTECT=DELETE The password is only required for deleting or 


renaming the file. You do not need a password to 
read or modify the file 


PROTECT=NONE No password exists for the file. If a password 


password exists, this modifier can be used to 
delete the password 
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Appendix E: 8080 Instruction Set 


This is a summary of the 8080 instruction set, listed alphabetically, to assist 
you when programming with the Additional Utilities diskette. 


For a complete listing and explanation of 8080 mnemonics, we suggest you 
purchase one of the many excellent 8080/Z-80 assembly language reference 
books. 


Letters A,B,C,D,E,H,1I,L,L,1IX,1Y¥, R, and SP are the standard 
register names. The symbols BC, DE, and HL are used for the register pairs. 
The symbol nn signifies an 8-bit constant, and the symbol nnnn signifies 
a 16-bit constant. 


Hex Mnemonic Notes 


CE nn ACI nn Add nn to accululator 
with carry 


8F-8E ADC A-M Add memory byte 
pointer to by register 
to accumulator with 
carry 


87-86 ADD A-M Add register given 
to accumulator 
without carry 


C6 nn ADI nn Add the immediate 
byte to the 
accumulator 

A7-6 ANA A-M Logical "and" reg 


with A, as above 


E6 nn ANI nn Perform logical AND 
with accumulator & nn 
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CD 


DC 


FC 


2F 


3F 


BF -BE 


D4 


C4 


F4 


EC 


FE 


E4 


nnnn 


nnnn 


nnnn 


nnnn 


nnn 


nnnn 


nnnn 


nn 


nnnn 


CALL nnnn 
CE nnnn 
CM nnnn 
CMA 

CMC 

CMP A-M 
CNC nnnn 
CNZ nnonn 
CP nnnn 
CPE nnonn 
CPI nn 
CPO nnnn 
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Unconditional 
subroutine call to 
address nnnn 


Conditional 
subroutine call to 
address nnnn, carry 
flag set 


Conditional 
subroutine call to 
address nnnn, sign 
flag set 


Perform one's 
complement on 
accululator 


Complement carry flag 
Complare byte pointed 
to by register with 


accumulator 


Conditional subroutine 
call Carry flag set 


Conditional subroutine 
call Zero flag reset 


Conditional subroutine 
call Sign flag set 


Conditional subroutine 
call Parity flag set 


Compare nn to 
acculumator 


Conditional subroutine 
call Parity flag reset 
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enn SS 


CC nnonn CZ nnnn Conditional subroutine 
call Zero flag set 


27 DAA Decimal adjust 
accumulator 

09-39 DAD B-SP Add specified double 
register 

3D=35 DCR A-M Decrement register 

OB-3B DCX B-SP Decrement double 
register 

F3 DI Disable the 
interrupt system 

FB EI Enable the interrupt 
system 

76 HLT Halt the 8080 
processor 

DB nn IN nn Load register A with 
data from port e8 

3C=34 INR A-M Single precision 
increment register 

03-33 INX B-SP Double precision 
increment register 
pair 

DA nnonn JC nnonn Conditional jump to 


address nnnn where 
carry flag set 


FA nnonn JM nnonn Conditional jump to 
address nnnn where 
sign flag set 


283 


Abacus Software 





D2 


C2 


F2 


EA 


E2 


CA 


3A 


OA-1A 


2A 


01-31 


TE= 1D 


3E-36 


nnnn 


nnnn 


nnnn 


nnnyn 


nnnn 


nnnn 


nnnn 


nnnn 


nnnn 


nn 


JNC 


JP 


JPE 


JPO 


JZ 


LDA 


LDAX 


LHLD 


LXI 


MOV 


MVI 


nnonn 


nnnn 


nnnn 


nnnn 


nnonn 


nnnn 


nnnn 


nnnn 


B,SP,nnnn 
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Conditional jump to 
address nnnn where 
carry flag reset 


Conditional jump to 
address nnnn where 
zero flag reset 


Unconditional jump 
to address nnnn 


Conditional jump to 
address nnnn where 
parity flag set 


Conditional jump to 
address nnnn where 
parity flag reset 


Conditional jump to 
address nnnn where 
zero flag set 


Load register A from 
specified address 


Load register A from 
computed address 


Load HL direct from 
specified location 


Load sepicified 
double register with 
nnnn 


A,A-M, LMove data to 


leftmost element 
from rightmost 
element 


A,nn-M Loar register with nn 
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00 | NOP No operation is 
performed by the CPU 

B7-B6 ORA A-M Logical "and" reg 
with A 

F6 nn ORI nn Perform logical OR 


with the accumulator 
& the byte nn 


D3 nn OUT nn Send data from 
register A to 
specified port 


EQ PCHL Fill program counter 
with data from HL 


C1i-F1 POP B-PSW Load register pair 
from stack, set SP 


C5-F5 PUSH B-PSW Store register pair 
into stack, set SP 


17 RAL Rotate carry/A 
register to left 


LF RAR Rotate carry/A 
register to right 


D8 RC Conditional return 
from a 
subroutine, carry 
flag set 


C9 RET Return from a, 
subroutine 


07 RLC Rotate bits left, 


set carry as a side 
effect 
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F8 RM Conditional return 
from subroutine, 
Sign flag set 


DO RNC Conditional return 
from 
subroutine,carry 
flag reset 


CO RNZ Conditional return 
from subroutine, zero 
flag reset 


FO RP Conditional return 
from subroutine, sign 
flag reset 


E9 RPE Conditional return 
from 
subroutine, parity 
flag set 


EO RPO Conditional return 
from subroutine, 
parity flag reset 


OF RRC Rotate bits right, 
reset carry as side 
effect 


C7-FF RST O-7 These restart 
instructions 
generate one-byte 
subroutine 
calls,given in the 
Z-80 operand. 


C8 RZ Conditional return 


from subroutine, 
zero flag reset 
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OF -9E SBB A-M Subtract specified 
register from A with 
carry,as defined 
above 


DE nn SBI nn Subtract immediate 
byte, the carry flag 
from accumulator 


22 nnonn SHLD nnnn Store HL direct to 
location e16 


F9 SPHL Fill stack pointer 
with data from HL 


32 nnonn STA mnnn Store register A 
into memory at e16 


37 STC Set the carry flag 
to 1 
QO2-12 STAX B-D Store register A to 


computed address 


97-96 SUB A-M Subtract specified 
register from 
A without carry 


EB XCHG Exchange DE pair 
with HL pair 

AF-AE XRA A-M Perform exclusive OR 
with 
accumulator,byte 

EE nn XRI nn Perform logical 


exclusive OR with 
accumulator,the byte 


E3 XTHL Exchange byte at stack 
pointer, register L 
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FOG — THE CP/M EXPERT 


You've read the book and now will have a good, solid working knowledge 
of your Commodore 128. As you become more experienced, you will find 
out how much you can do with CP/M (and how much it can do for you) on 
your Commodore. But working with computers is never plain sailing. If 
you find you need any more help or clarification, there's an organization 
with a specialist's knowledge of CP/M—FOG. 


FOG is a users’ group for people using or interested in computers. The 
bulk of its support is to the CP/M operating system. More than 16,000 
people worldwide subscribe to the monthly publication FOGHORN, which 
regularly runs to 80 pages and is wholly devoted to CP/M. Reprints of all 
back issues are available for a varying charge (depending on the issue) and 
two "best of’ volumes have been compiled. Each year will see the release of 
a new "best of" issue. 


A membership in FOG is $24 per year, and gives you access to all FOG 
services. As well as receiving the FOGHORN each month, members can 
draw from an extensive FOG/CPM Disk Library containing more than 300 
disks and thousands of public domain programs. Other services include an 
RCP/M network that has more than 40 RBBS-RCP/M systems in operation, 
most of which accept both 300 baud and 1200 baud. In addition, a network 
of FOG-affiliated local groups meet at more than 300 locations. Special 
interest groups organized to augment the local group meetings cover such 
areas as dBASE II, ham radio operators, and Personal Pearl. 


Another valuable FOG service is its technical hotline—a phone service 
provided by FOG's computer experts who give advice and assistance to 
callers. The hotline operates Monday to Friday 10am to 5.30pm PST. The 
phone number is (415) 755-2000. 


FOG was founded in October, 1981 by a small band of early buyers of the 
Osborne 1. The primary purpose was to organize a library of public domain 
software to run on the O-1. A newsletter (which developed into the 
FOGHORN) was quickly became the focal point for the group's activities. 


Today, as MS-DOS systems become more prevalent in the business world, 
and as many members have diversified their interests to both CP/M and 
MS-DOS operating systems, FOG recently began supporting 16-/32-bit 
oc through a new publication, the FOGLIGHT, and another disk 
ibrary. 
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FOG is headquartered in Daly City, near San Francisco. The postal address 
is: 


FOG 

Box 3474 

Daly City CA 94015-0474 
The office location is: 


FOG 

295 89th St. 

Suite 304 

Daly City CA 94015. 
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Additional Utilities diskette, 123 
archive flag, 93 
ASCII code, 13, 95 
changing value/keyboard, 109 
conversion table, 267 
assemblers (MAC/RMAC), 124 
asterisk, 37, 41-42 


backups, 15 
automatic, 93 
BDOS, 22, 142 
routines, 145 
binary, 10-11 
BIOS, 22, 142 
bit, 12 
8th bit, 95 
booting, 23 


Carriage return (CR), 26 
CoM files, 45 
command, 27, 46 
Commodore 128 (under CP/M), 101 
computer, 4 
concatenation, 89 
Console Command Processor, (CCP), 142 
CONTROL codes, 273 
COP YSYS, 227 
CP/M, 21 
commands, 225-264 
version 2.2, 22 
version 3.0, 22 
CPU, 13 


daisy wheel printers, 8 
DATE, 228 

DEVICE, 229 

Digital Research, 124-125 
DIR, 51, 231 


directory, 26 


displaying, 36 
DIRSYS, 233 
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disk drives, 14, 72-75 

1541 and 1571, 101, 106 
dot matrix printers, 7 
DUMP, 234 


echo, 105 

ED, 235 

end-of-file indicator, 88 
ERASE, 55 

extensions, 38-340 


files, 39 
merging,89 
non-text, 88 
overwriting, 94 
text, 88 
filenames, 38-39 
floppy diskettes, 14, 74 
copying, 86 
formats, 106 
MFM format, 105, 115 
FOG (CP/M resource), 289 
FORMAT, 239 
format (printer page), 92 
formatting, 15, 32, 35 
function keys, 111 
special functions, 115 


GENCOM, 240 
GET, 241 


hardcopy, 96 

hard disk drive, 16 
HELP, 79, 242 
HEXCOM, 243 


INITDIR, 244 
ink-jet printers, 8 


keyboard, 4, 107 
KEYFIG, 245 
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keys, 4 

designations, 4 

function, 111 

values, 107-111 

changing with KEYFIG, 116 
kilobyte, 12 


labels, 64 

laser printers, 9 

LIB, 246 

line numbering, 90 
LINK, 247 

lowercase characters, 90 


MAC, 248 
machine language, 20 
programming, 123-141 
mass storage, 14 
MBASIC®, 95 
memory, 10 
layout, 142 
mnemonics, 124 
monitor, 6 


operating system, 19, 21 
option, 46 
overwriting files, 94 


parameter, 46 
passwords, 66-68 
PATCH, 249 

PIP, 27, 33, 37, 85-98, 250-253 
pound key (£), 114 
printers, 7 

printing files, 92, 96 
program, 13, 19 
prompt, 25 
psuedo-opcodes, 133 
PUT, 254 


question mark, 41-42 
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read errors, 24 

RENAME, 57, 255 

RESET, 23 

resident commands, 31, 45 

RMAC, 256 

~ ROM (C-128), 153 

important addresses, 155 
listing, 157-223 

RS-232, 143 


SAVE, 257 
screen, 6 
colors, 107 
changing background/foreground, 108 
memory location, 154 
search path (disk drive), 72 
sectors (diskette), 14,105 
SET, 258, 280 
SETDEF, 259 
SHOW, 260 
SID, 141, 261 
software, 19 
status line, 25, 105 
string searches, 91 
SUBMIT, 262 
system diskette (backup), 31 
double-sided, 101 
system files, 54 
copying, 95 


tracks (diskette), 14, 105 

thermal printers, 9 

time stamping, 69 

Transient Program Area (TPA), 24, 142 
transient commands, 47, 61 

transient programs, 45 
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uppercase characters, 90 
USER, 263 
USER areas, 49 

copying between, 88 


verifying commands, 38 
virtual disk drive, 37, 103 


Wordstar®, 95 
write-protect tab, 15 


XREF, 264 
Z-80 processor, 21, 124, 153 


1571 disk drive formats, 106 
40/80-column mode, 23, 97 
6502 code, 124 
8080/8085/8502 processors, 21, 153 
8080 code, 124 
8080 instruction set, 281 
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Software Abacus 
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REQUIRED 
READING 


A OATA - BECKER BOOK PUBLISHED BY 


Abacus fir Software 


Detailed guide presents the 128's 
operating system, explains graphic 
chips, Memory Management Uni, 80 
column graphics and commented 
ROM listings. S00pp $19.95 


A OATA- BECKER BOOX PUBLIGHED BY 


Abacus Eig Software 


Introduction to programing; problem 
analysis; thorough description of all 
BASIC commands with hundreds of 
examples; monitor commands; util- 





Get all the inside information on 
BASIC 7.0. This exhaustive hand- 
book is complete with commented 
BASIC 7.0 ROM listings. Coming 
Summer ‘86. $19.95 


COMMODORE 


Usefu! pragammng 
Quich-haters 


A DATA. BECKER BOOK PUBLISHED BY 


Abacus Software 


Presents dozens of programming 
quick- -hitters. Easy and useful 
techniques on the operating system, 





Filled with info for everyone. Covers 
80 column hi-res graphics, win- 
dowing, memory layout, Kernal 
routines, sprites, software pro- 
tection, autostarting. 300pp $19.95 


The C-128 CPAA 
sourcebook 


jeuag) 


ES aa 
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A DATA- BECKER BOOK PUBLISHED BY 


Abacus fis Software 


Essential guide for everyone inter- 
ested in CP/M on the 128. Simple 
explanation of the operating system, 








Insiders’ guide for novice & ad- 
vanced users. Covers sequential & 
relative files, & direct access com- 
mands. Describes DOS routines. 
Commented listings. $19.95 


GAMEWRITERS A 
HANDBOOK FOR 





Learn fundamentals of CAD while 
developing your own system. Design 
objects on your screen to dump toa 
printer. Includes listings for '64 with 
Simon's Basic. Opp $19.95 
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sires 
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Doorn nn 
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COMMODORE. 63 


ities; much more. $16.95 


ANATOMY OF C-64 Insider's guide to the 
'64 internals. Graphics, sound, /O, kernal, 
memory maps, more. Complete commented 
ROM listings. 300pp $19.95 


ANATOMY OF 1534 gDRIVE Best 


handbook on s all. Many 
examples and Kom commented 
1541 ROM listing 500pp $19.95 


MACHINE LANGUAGE C-64 Learn 
6510 code write fast programs. Many sam- 
ples and listings for complete assembler, 
monitor, & simulator. 200pp $14.95 


GRAPHICS BOOK C-64 - best reference 
covers basic and advanced graphics. 
Sprites, animation, Hires, Multicolor, 
lightpen, 3D-graphics, IRQ, CAD, pro- 
jections, curves, more. 350pp $19.95 


Abacus! 


stacks, zero-page, pointers, the 
BASIC interpreter and more. $16.95 


TRICKS & TIPS FOR C-64 Collection of 
easy-to-use techniques: advanced graphics, 
improved data input, enhanced BASIC, 
CP/M, more. 275pp $19.95 


1541 REPAIR & MAINTENANCE 
Handbook describes the disk drive hard- 
ware. Includes schematics and techniques 
to keep 1541 running. 200pp $19.95 


ADVANCED MACHINE LANGUAGE 
Not covered elsewhere: - video controller, 
interrupts, timers, clocks, VO, real time, 
extended BASIC, more. 210pp $14.95 


PRINTER BOOK C-64/VIC-20 Under- 
stand Commodore, Epson-compatidle print- 
ers and 1520 plotter. Packed: utilities; gra- 
phics dump; 3D-plot; commented MPS801 
ROM listings, more. 330pp $19.95 





memory usage, CP/M utility pro- 
grams, submit files & more. 
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SPELL 


$19.95 


SCIENCE/ENGINEERING ON C-64 In 
depth intro to computers in science. Topics: 
chemistry, physics, biology, astronomy, 
electronics, others. 350pp $19.95 
CASSETTE BOOK C-64/VIC-20 
Comprehensive guide; many sample 
programs. High speed operating system 
fast file lading and saving. 225pp $14.95 


IDEAS FOR USE ON C-64 Themes: 
auto expenses, calculator, recipe file, stock 
lists, diet planner, window advertising, 
others. Includes listings. 200pp $12.95 


COMPILER BOOK C-64/C-128 All you 
need to know about compilers: how they 
work; designing and writing your own; 
generating machine code. With working 
example compiler. 300pp $19.95 








Adventure Gamewriter's Handbook 

Step-by-step guide to designing and writing 
your own adventure games. With automated 
adventure game generator. 200pp $14.95 


PEEKS & POKES FOR THE C-64 

Includes in-depth explanations of PEEK, 
POKE, USR, and other BASIC commands. 
Learn the “inside” tricks to get the most out 
of your ‘64. 200pp $14.95 


Optional Diskettes for books 

For your convenience, the programs 
contained in each of our books are avail- 
able on diskette to save you time entering 
them from your keyboard. Specify name of 
book when ordering. $14.95 each 


C-128 and C-64 ase tademarks of Commodore Business Machines Inc. 


Software 


P.O. Box 7219 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-3910 


Call now for the name of your ie sealer Or to order directly by credit card, MC, AMEX of VISA call (616) 
241-5510. Other software and books are available—Call and ask for your free catalog. Add $4.00 for shipping 
per order. Foreign orders add $10.00 per book. Dealer inquires welcome—1400+ nationwide. 





















| The complete compiler 
=] and development pack- 
| age. Speed up your pro- 
4 grams 5x to 35x. Many 
=] options: flexible memory 
=] Management; choice of 


E41 code, compact p-code or 
=] both. ‘128 version: 40 or 
“7 80 column monitor output 
= and FAST-mode opera- 
#4 tion. ‘128 Compiler's ex- 
“tensive 80-page pro- 
“1 grammer's guide covers 
ompiler directives and 
5 options, two levels of 
optimization, memory usage, I/O handling, 80 column hi-res graphics, faster, 
higher precision math functions, speed and space saving tips, more. A great 
package that no software library should be without. 128 Compiler $59.95 


64 Compiler $39.95 
*,>PR 


For school or software 
development. Learn C on 
your Commodore with our in- 
depth tutorial. Compile C pro- 
grams into fast machine 
language. C-128 version has 
added features: Unix™-like 
operating system; 60K RAM 
disk for fast editing and 
compiling Linker combines 
up to 10 modules; Combine 
M/L and C using CALL; 51K 
— . available for object code; 
Fast loading (8 sec. 1571, 18 sec. 1541); Two standard !/O librarys plus 
two additional libraries—math functions (sin, cos, sqrt, etc.) & 20+ graphic 
commands (line, fill, dot, etc.). C-128 $79.95 
C-64 $79.95 
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. { 0 aan, ext sep, 
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Easily create professional 
high quality charts and 
graphs without programming. 
You can immediately change 
the scaling, labeling, axis, 
bar- filling, etc. to suit your 
needs. Accepts data from 
CalcResult and MultiPlan. 
C-128 version has 3X the 
resolution of the '64 version. 
Outputs to most printers. 
C-128 $39.95 
C-64 $39.95 
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PowerPlan 
One of the most powerful spreadsheets with integraded 
graphics. Includes menu or keyword selections, online help 
screens, field protection, windowing,trig functions and more. 
PowerGraph, the graphics package, is included to create 


integrated graphs & charts. C-64 $39.95 
COBOL Compiler for the C-64 $39.95 
Ada Compiler for the C-64 $39.95 
VideoBasic Language for the C-64 $39.95 





Abacus 


ey compiling to machine. 


fo252304094 


SURE LEiE 


ULAR 
ARE 


Remarkably easy-to-use 
interactive drawing pack- 
age for accurate graphic 
designs. New dimension- 
ing features to create 
exact scaled output to all 
major dot-matrix printers. 
Enhanced version allows 
you to input via keyboard 
or high quality lightpen. 
Two graphic screens for 
COPYing from one to the 
other. DRAW, LINE, BOX, 
CIRCLE, ARC, ELLIPSE 
available. FILL objects 
with preselected PAT- 
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TERNS; add TEXT; SAVE and RECALL designs to/from disk. Define your own 
library of symbols/objects with the easy-to-use OBJECT MANAGEMENT 
SYSTEM-store up to 104 separate objects. 


C-128 $59.95 
C-64 $39.95 


Not just a compiler, but a 
complete system for develop- 
ing applications in Pascal 
with graphics and sound 
features. Extensive editor 
with search, replace, auto, 
renumber, etc. Standard J & 
W compiler that generates 
fast machine code. If you 
want to learn Pascal or to 
develop software using the 
best tools available-SUPER 
Pascal is your first choice. 

C-128 $59.95 

C-64 $59.95 


OTHER TITLES AVAILABLE: 


Technical Analysis System 
Sophisticated charting and technical analysis system for 
serious investors. Charting and analyzing past history of a 
stock, TAS can help pinpoint trends & patterns and predict a 
stock's future. Enter data from the keyboard or from online 
financial services. C-64 $59.95 


Compiler and Software 
Development System 





Personal Portfolio Manager 
Complete protfolio management system for the individual or 
professional investor. Easily manage your portfolios, obtain 
up-to-the-minute quotes and news, and perform selected 
analysis. Enter quotes manually or automatically through 
Warner Computer Systems. C-64 $39.95 


Xper 
XPER is the first "expert system’ for the C-128 and C-64. While 
ordinary data base systems are good for reproducing facts, 
XPER can derive knowledge from a mountain of facts and help 
you make expert decisions. Large capacity. Complete with 
editing and reporting. C-64 $59.95 


C-128 and C-64 eve trademarks of Commodore Business Machines inc. 
Unix is a tademark of Bell Laboratories 
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P.O. Box 7219 Grand Rapids, Ml 49510 - Telex 709-101 -Phone (616) 241-5510 


Call now for the name of your nearest dealer. Or to order directly by credit card, MC, AMEX of VISA call (616) 
241-5510. Other software and books are available—Call and ask for your free catalog. Add $4.00 for shipping 
per order. Foreign orders add $12.00 per item. Dealer inquires welcome—1400+ nationwide. 
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INTERNALS 
Essential guide to learning the 
inside information of the ST. 
Detailed descriptions of sound 
& graphics chips, internal 
hardware, various ports, GEM. 
Commented BIOS listing. An 
indispensible reference for 


GEM Programmer's Ref. 
For serious programmers in 
need of detailed information 
on GEM. Written with an 
easy-to-understand format. All 
GEM examples are written in 
C and assembly. Required 
reading for the serious pro- 





TRICKS & TIPS 

Fantastic collection of pro- 
grams and info for the ST. 
Complete programs include: 
super-fast RAM disk; time- 
saving printer spooler; color 
print hardcopy; plotter output 
hardcopy. Money saving tricks 


GRAPHICS & SOUND 
Detailed guide to understand- 
ing graphics & sound on the 
ST. 2D & 3D function plotters, 
Moiré patterns, various reso- 
lutions and graphic memory, 
fractals, waveform generation. 
Examples written in C, LOGO, 








PRESENTING THE ST 
Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.9 


~ Abacus 


your library. 450pp. $19.95 





Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
& important details of the 
instruction set, and use of 
the internal system 
routines. 280pp $49.95 





450pp. $19.95 


MACHINE LANGUAGE 


and tips. 


LOGO 
Take control of your 
ATARI ST by learning 
LOGO-the easy-to-use, 
yet powerful language. 
Topics covered include 
structured programming, 
graphic movement, file 
handling and more. An 
excellent book for kids as 
well as adults. $19.95 
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200 pp. $19.95 


PEEKS & POKES 
Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. . $16.95 





BASIC and Modula2. $19.95 


BEGINNER'S GUIDE 
Finally a book for those 
new to the ST wanting to 
understanding ST basics. 
Thoroughly understand 
your ST and its many 
devices. Learn the funda- 
mentals of BASIC, LOGO 
and more. Complete with 
index, glossary and illus- 
trations. +200pp $14.95 
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beginning BASIC program- 
mers. Learn fundamentals of 
programming. Flowcharting, 
numbering system, logical 
operators, program structures, 
bits & bytes, disk use, chapter 
quizzes. 
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BASIC TOC 
If you are already familiar 
with BASIC, learning C 
will be all that much 
easier. Shows the trans-- 
ition from a BASIC 
program, translated step 
by step, to the final C 
program. For all users 
interested in taking the 
next step. $19.95 


The ATARI logo and ATARI ST are tademarks of Atari Corp. 
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Optional diskettes are available for all book titles at $14.95 . : 
Call now for the name of your nearest dealer. Or order directly from ABACUS with your MasterCard, VISA, or Amex card. Add 
$4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and books coming soon. Call or 
write for your free catalog. Dealer inquiries welcome—over 1400 dealers nationwide. | 





COMMODORE 


CP/M 
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Finally.. .CP/M for the ‘128 revealed! Covers built-in and 
transient commands, function key definition, CP/M internals, 
important utilities and more. 


¢ Organization of CP/M ° 
- ¢ Files and filenames ° 
¢ The built-in commands: ° 
USER, DIR, ERASE, etc. 
¢ "Special" 128 commands »° 
¢ Many other topics 


About the authors: 


The System Diskette 

All about PIP 

The transient commands: 
SET, SHOW, SUBMIT, etc. 
Commented ROM listings 


J6rg Schieb is a noted programmer and expert on the internal 
workings of the ‘128. Elmar A. Weiler is a freelance journalist 
and author of other Data Becker books. Both of them are best 
selling book authors in the U.S. and Europe. 


ISBN 0-9164359-45-3 


CP/M is a trademark of Digital Research Inc, 
Commodore128 is a trademark of Commodore Business Machines Inc. 
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